Задан случайным образом массив А(10) в интервале (-15 до + 15). Вывести кол-во отрицательных, а положительные просуммировать.

Есть ответ
12.12.2022
152

Ответ


program pr;

var count,sum,i:integer;A:array[1..10] of integer;

begin

count:=0; sum:=0;

writeln('Массив:');

for i:=1 to 10 do

begin

A[i]:=random(31)-15;

writeln(A[i]);

if A[i]


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.