uses crt;

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

i,n,max,min,s,ss: integer;

tb: real;

begin

clrscr;

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

s:=0;

ss:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 2<>0 then ss:=ss+a[i];

s:=s+a[i];

end;

tb:=s/n;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln ('Tong cac phan tu: ',s);

writeln ('Phan tu lon nhat: ',max);

writeln ('Phan tu nho nhat: ',min);

writeln ('Tong cac so le: ',ss);

writeln ('Trung binh cong cua mang: ',tb:1:2);

write ('Mang vua nhap:');

for i:=1 to n do write (A[i]:3);

readln;

end.

uses crt;
var n,i,s,max,min,d: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        s:=s+a[i];
        if a[i] mod 2<>0 then d:=d+1;
    end;
    max:=a[1]; min:=a[1];
    for i:=2 to n do begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('Tong cac phan tu vua nhhap: ',s);
    writeln('Phan tu lon nhat: ',max);
    writeln('Phan tu nho nhat: ',min);
    writeln('Trung binh cong cac phan tu trong mang: ',(s/n):5:2);
    writeln('Co ',d,' so le trong mang');
    write('Day vua nhap: ');
    for i:=1 to n do write(a[i],' ');
    readln
end.