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

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 k<>1 then writeln(net);
end.
Оцени ответ

Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответыСамые новые вопросы





Математика, опубликовано 11.11.2019
БУЛОПЕРШИЙ-? А 2-240М ВИДРИЗАЛИ 420 М ЗАЛИШИЛОСЯ 190 М СКИЛЬКИ БУЛО МЕТРИВ У 1