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) điểm trong mảng a có bao nhiêu số chia hết cho 5

Question

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) điểm trong mảng a có bao nhiêu số chia hết cho 5

minhuyen · Answer

Program Hotboy;

Uses crt;

Var A : array[1..10] of integer;

i,n,Ninh : longint;

Begin

Clrscr ;

Ninh:=0;

For i:= 1 to 10 do

Begin

Write(‘A[‘,i,’]=’);

Readln(A[i]);

End;

For i:=1 to 10 do

If A[i] mod 5 =0 then Ninh:= Ninh+1;

Write(‘so phan tu chia het cho 5 trong mang la: ‘,Ninh);

Readln

End.

kimoanh · Answer

uses crt;

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

i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 10 do

begin

write(‘a[‘,i,’]=’); readln(a[i]);

if a[i] mod 5=0 then inc(dem);

end;

writeln(‘so phan tu chia het cho 5 trong day la: ‘,dem);

readln;

end.

0 bình luận về “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) điểm trong mảng a có bao nhiêu số chia hết cho 5”