Ответ:

var

k, i: Integer;

arr:array[1..10] of Integer;  

begin

k:=0;

for i := 1 to 10 do begin

 arr[i] := random(100);

 write (arr[i]:4);

 if arr[i] mod 3 = 0 then

 k:=k+1;

end;

writeln();

writeln(k);

end.