viết chương trình tìm max, min, đếm các số âm, dương.

0 bình luận về “viết chương trình tìm max, min, đếm các số âm, dương.”

1. program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n,max,min,d1,d2:integer;

   begin clrscr;

      write(Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        max:=A[1]; min:=A[1];

      for i:=1 to n do

        begin

           if A[i]>max then max:=A[i];

           if A[i]<max then min:=A[i];

           if A[i]>0 then inc(d1) else inc(d2);

        end;

      writeln(‘Gia tri lon nhat la: ‘,max);

      writeln(‘Gia tri nho nhat la: ‘,min);

      writeln(‘Co ‘,d1,’ so am’);

      writeln(‘Co ‘,d2,’ so duong’);

   readln;

   end.

   Học tốt!

   Bình luận

2. program ct;

   uses crt;

   var i,n,Max,Min,d1,d2:integer;

   A:array[1..1000] of integer;

   begin

   clrscr;

      write(Nhap n’); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap mang A[‘,i,’]:=’); readln(A[i]);

        end;

     Max:=A[1]; Min:=A[1];d1=0;d2=0;

      for i:=1 to n do

        begin

           if A[i]>max then max:=A[i];

           if A[i]<max then min:=A[i];   

          if A[i]>0 then d1:=d1+1;

          if A[i]<0 then d2:=d2+1;

        end;

      writeln(‘Gia tri lon nhat la: ‘,max);

      writeln(‘Gia tri nho nhat la: ‘,min);

      writeln(‘cac so am la:’,d1);

      writeln(‘cac so duong la:’,d2);

   readln;

   end.

   Bình luận