Регистрация
milena162
14.08.2020 00:17
Информатика
Есть ответ 👍

Это информатика по онлайн м мектеп ​

114
194
Посмотреть ответы 1

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

DockVIP
DockVIP
4,6(74 оценок)

program program1; vari: integer; sum: real; a: array [1..16] of real; beginrandomize; for i: =1 to 16 dobegina[i]: =-2 + random * 5; writeln('a[',i,']=',a[i]: 0: 2); end; sum: =0; for i: =1 to 16 doif a[i]< 0 then sum: =sum+a[i]; writeln('сумма отрицательных чисел равна',sum: 0: 2); end.

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