Tạo mảng a gồm n số nguyên , đếm có bai nhiêu số chia hết cho 6 trong dãy dố nguyên đó
2 câu trả lời
program Tin_hoc;
uses crt;
var i,n,k:integer;
a: array [1..100000] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' so nguyen:');
k:=0;
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
if a[i] mod 6 = 0 then inc(k)
end;
writeln('Mang a co ',k,' so nguyen chia het cho 6');
readln;
end.
uses crt;
var A:array [1..1000] of integer;
n,i,dem:integer;
begin
writeln ('nhap vao so phan tu cua mang');readln (n);
for i:=1 to n do readln (A[i]);
write ('cac so chia het cho 6 la: ');
for i:=1 to n do if A[i] mod 6 =0 then
dem:=dem+1;
writeln ('co tat ca ',dem,' so chia het cho 6');
readln
end.
Câu hỏi trong lớp
Xem thêm
