LH

cho dãy số N số nguyên a1,a2,a3,a4,...an được nhập từ bàn phím.

Hãy tính tổng các số dương

in:

10

1  -4  6  4  16  25  5  20  -50  0

out:77

6

1  4  16  25

16

4

-50   -4    0   1  4  5  6  16  20   25

H24
16 tháng 9 lúc 23:14

Bình luận (0)
H24
20 tháng 9 lúc 9:04

program bai1;

uses crt;

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

n,i,s: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

if a[i]>0 then

s:=s+a[i];

write('tong la:',s);

readln;

end.

pascal.

Bình luận (0)

Các câu hỏi tương tự
38
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
TP
Xem chi tiết
NQ
Xem chi tiết
LC
Xem chi tiết
H24
Xem chi tiết
HC
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết