Bài 11: Kiểu mảng

Đào Kim Ngân

Cho dãy A gồm 20 số nguyên.Tìm và đưa ra  tổng các phần tử âm của dãyHuhu giúp mk với

Nguyễn Lê Phước Thịnh
1 tháng 2 2021 lúc 21:28

uses crt;

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

i,n,t:integer;

begin

clrscr;

n:=20;

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('Tong cac phan tu am la: ',t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Hoàng Thùy
Xem chi tiết
an1114
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Lee Jihoon
Xem chi tiết
Phạm Vy
Xem chi tiết
Tiên trần
Xem chi tiết
nông thị ngân
Xem chi tiết
Dandelion
Xem chi tiết
Ngọc Huỳnh
Xem chi tiết