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

Question

Информатика

Аксюха

8 апреля, 00:36

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

+4

Ответы (1)

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

Васюха · Answer 1

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

i, k:integer;

begin

for i:=1 to 16 do begin a[i]:=random (41) - 20; write (a[i],' ') ; end;

for i:=1 to 16 do if (a[i] mod 3=0) and (a[i]0) then begin writeln ('est') ; k:=1; break; end;

if k1 then writeln ('net') ;

end.