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

Question

Информатика

Игорь

2 ноября, 22:59

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

+1

Ответы (1)

Знаете ответ на вопрос?

Валерьяша · Answer 1

Const n=10;

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

i:integer;

Begin

For i:=1 to n do

Begin

A[i]:=random (31) ;

if A[i] mod 3 = 0 then

write (A[i]:4) ;

End;

end.