Question

ПАСКАЛЬ!!!!Подсчитайте количество элементов одномерного массива, которые совпадают со своим номером и при этом кратны 3.

Answer 1

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.