Cho mảng số nguyên A: a)Hiển thị tất các phần tử của mảng ra màn hình bTìm phần tử min của mảng c)Đếm và in ra các số lẻ d)Đếm và in ra các số chẵn

program timsochan;

uses crt;

var i,n, dem : integer;  min, max : real;

a : array [1..100] of real;

Begin clrscr;

dem1 :=0; dem2 :=0;

Writeln('Nhap cac phan tu n :'); readln(n);

For i:=1 to n do

Begin

Writeln('Nhap a[',i,'] = '); readln(a[i]);

end;

min := a[1];

For i :=1 to n do

If a[i] < min then min := a[i];

Writeln('Phan tu nho nhat la :, min);

For i :=1 to n do 

If a[i] mod 2 = 0 then dem1 :=dem1+1;

For i :=1 to n do 

If a[i] mod 2 = 1 then dem2:=dem2+1;

writeln('Dem so le ', dem2, 'dem so chan', dem 1);

readln

end.

uses crt;
var a: array[1..1000] of integer;
    n,i,min,csl,csc:integer;
Begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
 begin
 write('a[',i,']'); readln(a[i]);
 end;
for i:=1 to n do write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
 if a[i]< a[1] then min:=a[i];
Write('Phan tu min cua mang: ',min);
writeln;
csl:=0;
for i:=1 to n do
 if a[i] mod 2<>0 then
   csl:=csl+1;
write(csl,' so le trong mang la: ');
for i:=1 to n do
 if a[i] mod 2<>0 then
write(a[i],' ');
writeln;
csc:=0;
for i:=1 to n do
 if a[i] mod 2=0 then
   csc:=csc+1;
write(csc,' so chan trong mang la: ');
for i:=1 to n do
 if a[i] mod 2=0 then
write(a[i],' ');
readln;
end.