Заполнить массив из 10 элементов целыми числами дел. на 3 без остатка

Чтобы заполнить массив воспользуемся генератором псевдослучайных чисел. Можно генерировать случайные числа и проверять их на делимость на три, но это долго и не нужно. Куда как проще сгенерировать случайное число и умножить его на три, тогда оно точно будет делиться на три.

program example;

Var A:array[1 ... 10] of integer;

i:integer;

Begin

randomize;

For i:=1 to 10 do

Begin

A[i]:=random (10) * 3;

write (A[i]:4);

End;

end.