Viết chương trình thực hiện các yêu cầu sau:
a) Nhập mảng gồm n số nguyên (n<= 100)
b) In ra các số chia hết cho 5 trong mảng
c) Đếm xem.trong mảng có bao nhiêu số là ước của 10
d) Tímh tổng các số là bội của k(k nhập vào từ bàn phím)
e) Đếm xem trong mảng có bao nhiêu số âm
Giúpp mình với ạ
Viết chương trình thực hiện các yêu cầu sau: a) Nhập mảng gồm n số nguyên (n<= 100) b) In ra các số chia hết cho 5 trong mảng c) Đếm xem.trong mảng có
By Charlie
program baitap;
uses crt;
var A:array[1..100] of integer;
n,du,k,t,da:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
da:=0; du:=0;
writeln(‘NHAP GIA TRI TUNG PHAN TU MANG’);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i];
if 10 mod A[i]=0 then du:=du+1;
if A[i]<0 then da:=da+1;
end;
writeln(‘Mang vua nhap la: ‘);
for i:=1 to n do
write(A[i]:4);
writeln;
write(‘Nhap k: ‘); readln(k);
write(‘Cac so chia het cho 5 la: ‘);
for i:=1 to n do
if A[i] mod 5=0 then write(A[i],’ ‘);
writeln;
writeln(‘Trong mang co ‘,d,’ so la uoc cua 10′);
t:=0;
for i:=1 to n do
if A[i] mod k=0 then t:=t+A[i];
writeln(‘Tong cac so chia het cho ‘,k,’ trong mang la: ‘,t);
writeln(‘Trong mang co ‘,da,’ so am’);
readln
end.