Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
27. Phạm Mai Phương
tính tổng các phần tử dương chia hết cho 5 có trong mảng nguyên A gồm N phần tử(N nhập từ bàn phím,N
Nguyễn Lê Phước Thịnh
5 tháng 3 2021 lúc 12:45

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) and (a[i] mod 5=0) then t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
Thu hằng
Xem chi tiết
VŨ MINH HOÀNG
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Minh Hoạt
Xem chi tiết
nông thị ngân
Xem chi tiết
Sơn Trần
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Yeo Bang Yeong
Xem chi tiết
Nguyễn Vân
Xem chi tiết