Hắc Lang

Sử dụng biến mảng viết chương trình nhập vào một dãy số gồm N số nguyên tử bàn phím in ra màn hình tổng các số dương trong dãy số đó.

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:51

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i]>0 then t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
ngô bá hiếu
Xem chi tiết
Hắc Lang
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Thwn Dayy
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết