Регистрация
RU2017
15.03.2023 18:14
Информатика
Есть ответ 👍

Тест! Таблицы решить!

181
236
Посмотреть ответы 1

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

NikolayNik12
NikolayNik12
4,4(86 оценок)
Var k,i,sum: integer; p: longint; r: array[1..15] of integer; beginp: =1; for i: =1 to 15 do beginr[i]: = random(15)-5; write(r[i]: 3); if r[i] > 0 then p: = p *r[i]; if r[i] < 0 then sum: = sum + r[i]; end; writeln; writeln('произведение положительных чисел = ',p); writeln('сумму отрицательных чисел = ',sum)end.

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