Uses Crt;
Var a:array[1..1000] of integer;
i,n,tsd:integer; S,tsa,max,min:real;
Begin
Clrscr;
Write('Nhap so ptu n= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
Writeln;
End;
S:=0;
For i:= 1 to n do
Begin
S:=S+a[i];
If a[i]>0 then tsd:=tsd+a[i];
If a[i]<0 then tsa:=tsa+a[i];
End;
Write('Tong cac ptu tren day la: '); Write(S:2:2);
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;
Write('Tong cac so duong la: ',tsd:2,'.Va tong cac so am la: ',tsa:2:2);
Writeln;
Write('So be nhat: ',min:2:2,' va so lon nhat: ',max:2:2);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhá! Thanks so much :33
* Có gì thì comment bên dưới nha!!