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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tiến Đạt

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ố đó ?

Lionel Messi
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.

Khánh Huy
11 tháng 5 2018 lúc 18:30
https://i.imgur.com/YWviLyy.png

Các câu hỏi tương tự
Uchiha Obito
Xem chi tiết
Bảo Trâm
Xem chi tiết
jennierubyjane
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Huyền Trần
Xem chi tiết
Uchiha Obito
Xem chi tiết
Đào Cẩm
Xem chi tiết
Hồ Ngọc Thiện
Xem chi tiết
Thư ĐT
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết