Bài 4. Sử dụng biến trong chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huỳnh Thanh Trúc

viết chương trình sử dụng bến mảng nhập vào 1 dãy a gốm n số nguyên (n được nhập từ bàn phím). Tính tổng các số nguyên âm có trong dãy

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:59

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.


Các câu hỏi tương tự
Nguyễn minh quân
Xem chi tiết
Trần Hải Long Trần
Xem chi tiết
le thi minh phuong
Xem chi tiết
Trâm Đây Này
Xem chi tiết
Nguyễn Mỹ Uyên
Xem chi tiết
Vanh Nguyễn
Xem chi tiết
Phan Thị Chuyên
Xem chi tiết
01 Nhung Anh 8/19
Xem chi tiết
Tấn Nguyên
Xem chi tiết