Информатика, опубликовано 2018-08-22 20:13:23 by Гость

Составьте программу,, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит наэкран элементы , значения которых являются четными и кратными3.

Ответ оставил Гость

Var n:integer;
r:array[1..20] of integer;
begin
for n:=1 to 20 do
begin
readln(r[n]);
end;
for n:=1 to 20 do
begin
if (r[n] mod 2=0) and (r[n] mod 3=0) then write(r[n], );
end;
end.

Не нашли ответа?

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