Составьте программу, которая формирует массив из - вопрос №20209601427 от enzhedob 11.04.2021 02:44

Question

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

enzhedob · Answer

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....