Question

Câu 1 : Viết chương trình nhập vào một dãy số nguyên gồm n phần tử

a) in ra dãy số vừa nhập

b) in ra giá trị lớn nhất, nhỏ nhất của dãy số

Câu 2 viết chương trình nhập vào 1 dãy số gồm n phần tử

a) in ra dãy số vừa nhập

b) in ra các số lẻ

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

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

Answer 1

Câu 1:

uses crt;

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

i,n,dem: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;

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.

Câu 2:

uses crt;

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

i,n,dem: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 le la: ');

for i:=1 to n do

if a[i] mod 2<>0 then 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);

readln;

end.