Viết chương trình a) nhập từ bàn phím các số nguyên cho mảng A gồm 10 phần tử b) đếm trong mảng A có bao nhiêu số chia hết cho 5
2 câu trả lời
var i,d:byte;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i,' : '); read(a[i]);
if a[i] mod 5 =0 then inc(d);
end;
write('So phan tu chia het cho 5: ',d);
readln
end.
uses crt;
var a:array[1..10] of integer;i,d:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i]);
d:=0;
for i:=1 to 10 do if a[i] mod 5=0 then d:=d+1;
wrrite(d);
readln
end.
