Question

viết chương trình nhập dãy n số nguyên từ bàn phím. đưa dãy vừa nhập ra màn hình. tìm giá trị chẵn nhỏ nhất và giá trị lẻ lớn nhất.đưa kết quả tìm được ra màn hình

Answer 1

Var

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

i,n,max,max1:integer;

Begin

readln(n);

For i:=1 to n do

begin

readln(a[i]);

write(a[i]);

end;

writeln;

max:=0;max1:=0;

For i:=1 to n do

if a[i] mod 2=0 then If a[i]>max then max:=a[i];

esle if a[i]>max1 then max1:=a[i];

writeln('so chan lon nhat la:',max);

write('so le lon nhat trong day la:',max1);

readln

end.