viết chương trình nhập vào một dãy gồm n phần tử a) in ra màn hình số lớn nhất trong dãy b) in ra màn hình số nhỏ nhất trong dãy c) đếm xem trong dãy số đó có bao nhiêu số chẵn d) đếm xem trong dãy số đó cóbao nhiêu số lẻ

Uses crt;

Var n,i,max,min,d,h:Integer;
a:array [1..100] of Integer ;
begin
readln(n);d:=0;h:=0;
For i:= 1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
for i :=1 to n do
begin
If a[i]>max then max := a[i];
If a[i]<min then min:= a[i];
If a[i] mod 2 = 0 then d:=d+1 else h:=h+1;
end;
writeln(max);
writeln(min);
writeln(d);
writeln(h);
end.

program ct

uses crt;

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

      i,n,d1,d2,max,min: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]<min then min:=A[i];

        if A[i] mod 2=0 then inc(d1);

        if A[i] mod 2<>0 then inc(d2);

     end;

   writeln('So lon nhat la: ',max);

   writeln('So lon nho la: ',min);

   writeln('Co ',d1,' so chan');

   writeln('Co ',d2,' so le');

readln;

end.

Học tốt!

Học tốt!