Question

cho số nguyên N(n<=100) và mảng A gồm n phần tử A1,...,An

yêu cầu : tính và in ra màn hình tổng các số nguyên dương

Answer 1

var i,n,s:integer;

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

begin

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 s:=s+a[i];

write('tong la:',s);

readln

end.

Answer 2

uses crt;

var i,n,s:integer;

a:array[1..100] of 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];

writeln('tong la:',s);

readln;

end.