Cоставить программу, которая формирует массив из 16 случайных целых чисел от - 20 до 20 и выводит элементы, кратные 3. На экран выводится исходный массив и найденные элементы.

Question

Информатика

Тихон

1 января, 19:10

Cоставить программу, которая формирует массив из 16 случайных целых чисел от - 20 до 20 и выводит элементы, кратные 3. На экран выводится исходный массив и найденные элементы.

+2

Ответы (1)

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

Димаха · Answer 1

Const n=16;

var a:array[1 ... n] of integer;

i:integer;

begin

for i:=1 to n do begin

a[i]:=random (40) - 20;

write (a[i], ' ') ;

end;

writeln;

for i:=1 to n do

if (a[i] mod 3) = 0 then write (a[i], ' ') ;

end.