Регистрация
KNEZIX
12.07.2020 08:33
Информатика
Есть ответ 👍

Решите, прошу. никак не получается

105
326
Посмотреть ответы 1

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

olgaversh
olgaversh
4,8(1 оценок)
Uses crt; const n: =5 var a: array[1..n] of integer; i: integer; begin clrscr; randomize; for i: =1 to n do begin a[i]: =random(100)-50; if a[i]> 0 then writeln(a[i]); end; readkey; end. проверь программу, скорее всего будет так

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