Bài 9. Làm việc với dãy số

TD

Viết chương trình sử dụng biến mảng để nhập n số nguyên từ bàn phím và tính tổng các số nguyên dương của N số đó ?

LM
11 tháng 5 2018 lúc 4:26

uses crt; var a:array[1..100] of integer; n,i,s:integer; begin clrscr; writeln('hay nhap so phan tu cua mang');readln(n); for i:=1 to n do begin writeln('phan tu thu ',i,':');readln(a[i]); end; s:=0; for i:=1 to n do if i>0 then s=s+a[i]; writeln('tong cac so duong la',s); readln;

end.

Bình luận (0)
KH
11 tháng 5 2018 lúc 18:30
https://i.imgur.com/YWviLyy.png
Bình luận (0)

Các câu hỏi tương tự
UO
Xem chi tiết
BT
Xem chi tiết
H24
Xem chi tiết
MA
Xem chi tiết
HT
Xem chi tiết
UO
Xem chi tiết
DC
Xem chi tiết
HT
Xem chi tiết
TD
Xem chi tiết
HL
Xem chi tiết