program Tin_hoc;
uses crt;
var i,n,max,min,tong,a,b,tongam:integer;
a: array [1..1000] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' so nguyen:');
for i:= 1 to n do readln(a[i]);
tong:=0;max:=a[1];min:=a[1];a:=1;b:=1;tongam:=0;
for i:= 1 to n do
begin
tong:=tong+a[i];
if a[i]>max then begin max:=a[i]; a:=i end;
if a[i]<min then begin min:=a[i]; b:=i end;
if a[i]<0 then tongam:=tongam+a[i]
end;
writeln('Tong cua day so la: ',tong);
writeln('So lon nhat la: ',max,' chi so la ',a);
writeln('So be nhat la: ',min,' chi so la ',b);
writeln('Tong cac so am la: ',tongam);
readln;
end.
Nhớ cho mik câu tlhn là
