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

Question

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

Answer 1

Var
a:array[1..16]of integer;
i:integer;
fl:boolean;
begin
randomize;
for i:= 1 to 16 do
begin
a[i]:=-20 + random(41);
Write(a[i], ' ');
if a[i] mod 3 = 0 then fl := true;
end;
Writeln();
if fl then Writeln('YES')
else Writeln('NO');
end.