program binh_phuong;
uses crt;
var A:array[1..10] of real;
    i:byte;
    t:real;
begin
        clrscr;
        t:=0;
        for i:=1 to 10 do
                begin
                        write('Nhap so thu ',i,': ');  readln(A[i]);
                        if A[i]<0 then t:=t+A[i]*A[i];
                end;
        write('Tong binh phuong cac so am la: ',t:0:4);
        readln;
end.

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