Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nông thị ngân

Viết chương trình nhập vào từ bàn phím mảng B gồm N số nguyên (N<=200)và 1 số nguyên dương k:

1.     Tính tổng  các phần tử lẻ trong mảng A và đưa kết quả ra màn hình?

2.     Tính tổng các phần tử là bội của K trong mảng A và đưa kết quả ra màn hình?

Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:41

uses crt;

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

n,i,k,t,t1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

for i:=1 to n do 

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

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.


Các câu hỏi tương tự
Linh Chi
Xem chi tiết
an1114
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Tô Thị Thanh Tuyền
Xem chi tiết
Minh Hoạt
Xem chi tiết
truc nguyen
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Yến Nhi
Xem chi tiết
Benny
Xem chi tiết