uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then
writeln(a[i],' la so le');
readln;
end.

program tongle;
uses crt;
var n,i,tongle:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
tongle:=0;
for i:=1 to n do
if a[i] mod 2 <>0 then tongle:=tongle+a[i];
write('tong cac so le trong day la:',tongle);
readln;
end.

uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day so da nhap:');
for i:=1 to n do write(a[i]:2);
readln;
end.

uses crt;

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

n,i,s:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

s:=0;

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

write('tong cac so duong la:',s);

readln;

end.

giúp m đó BFF

uses crt;

var n,i,max,min:integer;

s:real;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

max:=a[1]; min:=a[1];

for i:=2 to n do

begin

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

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

end;

s:=(max+min)/2;

wrrite('so lon nhat la:',max);

write('so nho nhat la:',min);

write(' trung binh số lớn nhất và số nhỏ nhất là:',s);

readln;

end.