Цветков Виктор var i,sum : integer; // объявляем переменные целочисленного типа. arr : array [1..100] of integer; // объявляем массив.Begin for i:= 1 to 100 do // начало цикла. begin arr[i] := random(-100,100); // заполняем элемент массива числом от -100 до 100. if arr[i] < 0 then // если элемент отрицательный. sum := sum + arr[i]; // считаем сумму элементов. end; writeln('Сумма отрицательных элементов массива: ', sum); //вывод строки на экран.End.
