Viết chương trình nhập một dãy số nguyên từ bàn phím cho đến khi gặp số 0 tính tổng các số dương và trung bình cộng các số âm
Viết chương trình nhập một dãy số nguyên từ bàn phím cho đến khi gặp số 0 tính tổng các số dương và trung bình cộng các số âm
uses crt;
var i,n,s:integer;
j,a:real;
begin
clrscr;
n:=1;
while n<>0 do begin
i:=i+1;
write(‘Nhap so thu ‘,i,’: ‘);readln(n);
if n>0 then s:=s+n;
if n<0 then begin j:=j+n; a:=a+1; end;
end;
writeln(‘Tong cac so duong: ‘,s);
writeln(‘TBC cac so am: ‘,j/a:1:2);
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.