Question

viết chương trình nhập vào A có n phần tử a,xuất và in ra màn hình b,Đếm xem mảng vừa nhập có bao nhiêu số lẻ c,Tìm số lớn nhất trong mảng vừa nhập và đưa ra màn hình

Answer 1

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

i,n,d,max:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then d:=d+1;

end;

max:=a[1];

for i:=2 to n do

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

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

write('So lon nhat la ',max);

readln

end.