Cho mảng a gồm các phần tử a1,a2,…an đưa ra màn hình tổng số lượng các phần tử chia hết cho 3. Tự nhập mảng và gieo ngẫu nhiên giá trị
Cho mảng a gồm các phần tử a1,a2,…an đưa ra màn hình tổng số lượng các phần tử chia hết cho 3. Tự nhập mảng và gieo ngẫu
By Iris
*Nhập:
program chiahet3;
uses crt;
var A:array[1..100] of integer;
n,i,d:word;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i] mod 3=0 then d:=d+1;
end;
write(‘Trong mang co ‘,d,’ phan tu chia het cho 3′);
readln;
end.
*Ngẫu nhiên:
program chiahet3;
uses crt;
var A:array[1..100] of integer;
n,i,d:word;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
randomize;
for i:=1 to n do A[i]:=random(2000)-1000;
write(‘Mang tao ngau nhien la: ‘);
d:=0;
for i:=1 to n do
begin
write(A[i],’ ‘);
if A[i] mod 3=0 then d:=d+1;
end;
writeln;
write(‘Trong mang co ‘,d,’ phan tu chia het cho 3′);
readln;
end.
program chia_het_3;
uses crt;
var A:array[1..100] of integer;
n,i,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘A[ ‘,i,’ ]= ‘); readln(A[i]);
if A[i] mod 3=0 then d:=d+1;
end;
write(‘Trong mang co ‘,d,’ phan tu chia het cho 3′);
readln;
end.