Question

Viết chương trình nhập vào 1 dãy số nguyên gồm n số

a) in ra dãy số

b) in ra các số chẵn

c) in ra các số lẻ

d) in ra giá trị lớn nhất, nhỏ nhất

Em đang cần gấp ạ. Mn giúp em với ạ. Em cảm ơn

Answer 1

uses crt;

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

n,i,max,min:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln('Cac so chan la: ');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

writeln;

writeln('Cac so le la: ');

for i:=1 to n do

if a[i] mod 2<>0 then write(a[i]:4);

writeln;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

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

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

end;

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

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

readln;

end.