Viết chương trình nhập vào một mảng n số nguyên từ bàn phím . Tính xem có bao nhiêu số chia hết cho 3 . In kết quả ra màn hình.
Giúp mình với
mình cần gấp
Viết chương trình nhập vào một mảng n số nguyên từ bàn phím . Tính xem có bao nhiêu số chia hết cho 3 . In kết quả ra màn hình. Giúp mình với mình cầ
By Allison
uses crt;
var i,n,d:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap vao phan tu thu ‘,i,’: ‘);readln(a[i]);
if a[i] mod 3=0 then inc(d);
end;
writeln(‘So luong cac so chia het cho 3: ‘,d);
readln
end.
Program so_le;
Uses crt;
Var n,i,d;integer;
A:array[1..100] of integer;
Begin
Clrscr;
Write(‘Nhap n:’);
Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap pt thu a[‘,i,’]’);
Readln(a[i]);
End;
For i:=1 to n do
If a[i] mod 3=0 then d:=d+1;
Writeln(‘So cac so le la:’,d);
Readln;
End.