Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình tổng các số vừa nhập

viết chương trình nhập n số nguyên từ bàn phím và tính tổng các số dương. càn gấp ak

Bạn vui lòng đăng nhập trước khi sử dụng chức năng này.

uses crt;

var a:array[1..100] of integer;

n,i,s:integer;

begin

clrscr;

write['nhap n:'];readln[n];

for i:=1 to n do

begin

write['a[',i,']='];readln[a[i]];

end;

s:=0;

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

write['tong cac so duong la:',s];

readln;

end.

Video liên quan