Регистрация
Vasyy123
13.08.2021 05:34
Информатика
Есть ответ 👍

сделать По ИВТ Плакат в ворде поинте

254
457
Посмотреть ответы 1

Ответы на вопрос:

Dinochka99
Dinochka99
4,5(67 оценок)

ответ:

объяснение:

var i, pol, otr: integer;

a: array [1..20] of integer;

begin

randomize;

for i: =1 to 20 do

a[i]: = random(51)-30;

writeln('положительные элементы ниже');

for i: =1 to 20 do begin

if (a[i]> 0) then

write(a[i], ' ');

end;

writeln; // для переноса каретки на следующую строку

writeln('элементы меньше 10, оканчивающиеся на 5 будут ниже');

for i: =1 to 20 do begin

if (a[i] < 10) and (a[i] mod 5 = 0) then

write(a[i], ' ');

end;

writeln;

readln();

end.

Популярно: Информатика