Viết chương trình nhập vào mảng D là dãy số nguyên sau đó đưa ra màn hình các số dương trong dãy tổng các số âm 14/07/2021 Bởi Autumn Viết chương trình nhập vào mảng D là dãy số nguyên sau đó đưa ra màn hình các số dương trong dãy tổng các số âm
var s,i:longint; a: array[1..10] of longint; begin for i:=1 to 10 do begin write(‘Nhap phan tu thu ‘,i); read(a[i]); if a[i]>0 then s:=s+a[i]; end; writeln; write(‘Tong la: ‘,s); readln end. Xin hay nhất Bình luận
var s,i:longint;
a: array[1..10] of longint;
begin
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i);
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln;
write(‘Tong la: ‘,s);
readln
end.
Xin hay nhất