Регистрация
maxprok2012
06.02.2022 01:03
Информатика
Есть ответ 👍

ПОМГИТЕ ОЧЕНЬ НУЖНО УМАЛЯЮ ОЧЕНЬ ОЧЕНЬ

265
466
Посмотреть ответы 1

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

sailorproblema
sailorproblema
4,8(91 оценок)
Program zd; var mas: array [1..15] of integer; i: integer; beginrandomize; for i: =1 to 15 do beginmas[i]: =random (20)-10; end; for i: =1 to 15 do beginif mas[i] mod 2 = 0 then mas[i]: =mas[i] div 2; if mas[i] mod 2 = 1 then mas[i]: =mas[i]*3; end; for i: =1 to 15 do beginwriteln ('',mas[i]); end;   end.

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