Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đà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.


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