Информатика, опубликовано 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на