Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
ngọc uyển nhi đỗ

Viết chương trình sử dụng biến mảng để tính tổng các phần tử lớn hơn 0 của dãy N số nhập vào từ bàn phím?

Please, help me!

Thiện
2 tháng 5 2019 lúc 21:15

uses crt;

var t,i,n:longint;

a:array[1..1000]of integer;

begin

t:=0;

write('nhap do dai mang:');readln(n);

for i:=1 to n do begin

write('nhap phan tu thu ',i,' :');readln(a[i]);

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

end;

writeln('tong cua mang la :',t);

readln

end.

Nguyễn Trung Hiếu
2 tháng 5 2019 lúc 21:52

uses crt;
var i,n,s:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
write('Tong cac phan tu lon hon 0 la: ',s);
readln
end.


Các câu hỏi tương tự
Nguyễn Phúc
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
HOÀNG ĐẠI PHÚC
Xem chi tiết
Finn
Xem chi tiết
sery Lan
Xem chi tiết
sery Lan
Xem chi tiết
Phạm Tèo
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết