Регистрация
Аэлита987
18.11.2022 07:28
Информатика
Есть ответ 👍

Закрасить поле! программа Кумир.​

248
334
Посмотреть ответы 1

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

kazorinJeka
kazorinJeka
4,8(84 оценок)

var

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

i: integer;

begin

randomize;

for i: =1 to 20 do begin

a[i]: =random(30)+1;

write (a[i],' ');

end;

writeln;

for i: =1 to 20 do

if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');

readln;

end. 

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