Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Le Hoang

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

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

hocthemmoingay.
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.


Các câu hỏi tương tự
35. Trần Gia Nhi 8elhp
Xem chi tiết
2k15
Xem chi tiết
Hello1234
Xem chi tiết
TRIẾT PHẠM
Xem chi tiết
Như Quỳnh
Xem chi tiết
Long ca ca
Xem chi tiết
Hello1234
Xem chi tiết
huynh chinh
Xem chi tiết
Noelle
Xem chi tiết
Logan
Xem chi tiết