uses crt;
const n=10;
var a : array[1..n] of integer;
i,kol : integer;
begin
kol:=0;
randomize;
for i:=1 to n do begin
a[i]:=random(10)+1;
end;
writeln('Исходный массив');
if (a[i]=i) and (a[i] mod 3=0) then kol:=kol+1;
write(a[i]:3);
writeln;
writeln('Количество элементов ',kol);
end.
uses crt;
const n=10;
var a : array[1..n] of integer;
i,kol : integer;
begin
kol:=0;
randomize;
for i:=1 to n do begin
a[i]:=random(10)+1;
end;
writeln('Исходный массив');
for i:=1 to n do begin
if (a[i]=i) and (a[i] mod 3=0) then kol:=kol+1;
write(a[i]:3);
end;
writeln;
writeln('Количество элементов ',kol);
end.