Question

Câu 1: Nhập 20 số nguyên in ra dãy tăng dần và giảm dần. In ra phân tử lẻ và chẵn. Tính và in ra các phân tử lẻ, chẵn. Tính thành cộng dãy. Tìm đưa ra vị trí giá trị của phân tử nhỏ nhất và lớn nhất?

Câu 2: Nhập vào 1 mảng 1 chiều, và 20 số thực. Đưa ra phân tử xuất hiện ít lần nhất và xuất hiện nhiều lần nhất?

Help me, mình cần gấp bh ạ

Mình cũng ko biết chọn chủ đề gì để đặt câu hỏi nên mình chọn đại chủ đề Kiểu Mảng

Answer 1

uses crt;
var a:array[1..20]of integer;
i,j,tam,t,max,min:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac so le la: ');
for i:=1 to 20 do
if a[i] mod 2<>0 then write(a[i]:6);
writeln;
write('Cac so chan la: ');
for i:=1 to 20 do
if a[i] mod 2=0 then write(a[i]:6);
writeln;
t:=0;
for i:=1 to 20 do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to 20 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write('Vi tri cua so nho nhat la: ');
for i:=1 to 20 do
if min=a[i] then write(i:4);
writeln;
write('Vi tri cua so lon nhat la: ');
for i:=1 to 20 do
if max=a[i] then write(i:4);
readln;
end.