program bai_tap;
uses crt;
var a:array[1..10] of integer;
n,i:byte;
s,max,min:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end;
{cau a) ======================}
writeln('mang ban vua nhap la: ')
for i:= 1 to n do
write(a[i]:4);
writeln;
{cau b) ======================}
s:=0;
for i:= 1 to n do
s:=s+a[i];
writeln('tong cac phan tu trong mang la: ',s);
{cau c) ======================}
max:=a[1];
for i:= 1 to n do
if max < a[i] then max:=a[i];
writeln('gia tri max la: ',max);
{cau d) ======================}
min:=a[i];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln('gia tri nho nhat la: ',min);

readln
end.

var A:array [1..10] of integer;

       i,x : integer;

       S : longint;

begin

x:=0;

S:=0;

for i:=1 to 10 do begin 

x:=x+1;

write('Nhap so thu', x ,' : ');readln (A[i]);

If A[i] <0 then S:= S+A[i]^2

end;

Writeln('Tong binh phuong cac so am trong mang la', S);

readln

end.

(Mik chưa KT lỗi đâu nha)