Составьте программу, которая формирует массив из шестнадцати случайных чисел от - 20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трем;

Question

Информатика

Гаджи

13 января, 11:02

Составьте программу, которая формирует массив из шестнадцати случайных чисел от - 20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трем;

+4

Ответы (1)

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

Друг · Answer 1

var k, i:integer;

a:array[1 ... 16]of integer;

begin

randomize; k:=0;

for i:=1 to 16 do

begin

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

write (a[i],' ') ;

if a[i] mod 3 = 0 then

k:=k+1;

end;

if k>0 then

writeln ('YES') ;

end.