Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hiếu

Viết phương trình vào mảng số nguyên n phần tử (n <=50)
a, in mảng vừa nhập ra màn hình 
b, tính tổng các số lẻ chia hết cho 5 có trong mảng 
Làm nhanh hộ em mai em thi rồi

Nguyễn Lê Phước Thịnh
9 tháng 4 2021 lúc 15:56

uses crt;

var a:array[1..50]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;

for i:=1 to n do 

  write(a[i]:4);

t:=0;

for i:=1 to n do

  if (a[i] mod 2<>0) and (a[i] mod 5=0) then t:=t+a[i];

writeln;

writeln(t);

readln;

end.


Các câu hỏi tương tự
Benny
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
nông thị ngân
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Tô Thị Thanh Tuyền
Xem chi tiết
Thủy Nguyễn Văn
Xem chi tiết
Nhân
Xem chi tiết
Nguyễn Văn Tú
Xem chi tiết
Quuỳnh Trang
Xem chi tiết