Lập trình nhập vào một dãy số nguyên cho đến khi nhập số 0 rồi tính tổng của số dương và trung bình cộng của các số âm

uses crt;

var n, s1, s2, d2 : integer;

begin

clrscr;

s1 := 0; s2 := 0; n := -1; d2 := 0;

while n <> 0 do

begin write('Nhap n : ');

readln(n); if n < 0 then begin

s2 := s2 + n; d2 := d2 + 1; end else s1 := s1 + n; end;

writeln('Tong so duong = ', s1);

writeln('Tong so am = ', s2);

writeln('Trung binh cong so am = ', s2 / d2 : 2 : 1);

readln

end.

uses crt;
var i,n,ta,td:longint; a:array[1..10]of longint;
begin
clrscr;
   i:=1;
   repeat
      write(‘a[‘,i,’]=’);readln(a[i]);
      if a[i]<0 then ta:=ta+a[i]; 
      if a[i]>0 then td:=td+a[i];
      inc(i);
   until a[i-1]=0; 
   writeln(‘Tong cac so am: ‘,ta);
   writeln(‘Tong cac so duong: ‘,td);
readln
end.