Bài tập : Tạo mảng A gồm n (n nhỏ hơn hoặc bằng 200) số nguyên. Tính tổng các phần tử trong mảng là số nguyên dương
Bài tập : Tạo mảng A gồm n (n nhỏ hơn hoặc bằng 200) số nguyên. Tính tổng các phần tử trong mảng là số nguyên dương
uses crt;
Var t,n,i:integer;
Begin
write(‘nhap n: ‘);readln(n);t:=0;
For i:=1 to n do
Begin
write(‘nhap pt thu ‘,i,’ :’);readln(a[i]);
if a[i]>0 then t:=t+a[i];
End;
write(‘tong la: ‘,t);
Readln;
End.
program Tin_hoc;
uses crt;
var n,i,t:integer;
a : array [1..200] of integer;
begin
clrscr;
writeln(‘Nhap n<=200’);readln(n);
while n>200 do begin write(‘Nhap lai: ‘);readln(n) end;
writeln(‘Nhap ‘,n,’ phan tu:’);
tong:=0;
for i:= 1 to n do
begin
readln(a[i]);
if a[i] > 0 then tong:=tong+a[i]
end;
writeln(‘Tong cac phan tu duong la: ‘,tong);
readln;
end.