Дан массив вещественных чисел, в котором необходимо вывести на экран номера отрицательных элементов и найти сумму положительных.

program zz1;

const n=5; / / задаем количество чисел в массиве

var i:integer; / / задаем переменную целого типа

s:real;

x:array [1 ... n] of real;

begin

for i:=1 to n do / / организуем цикл, в котором введем с клавиатуры n заданных чисел в массив

read (x[i]);

write (' номера отрицательных элементов: ');

for i:=1 to n do / / организуем цикл, в котором проверяем, если элемент массива отрицательный, то выводим его номер на экран

if x[i] < 0 then write (i,' ');

for i:=1 to n do / / организуем цикл, в котором проверяем, если элемент массива положительный, то прибавляем его к сумме

if x[i] > 0 then s:=s + x[i];

writeln;

write (' сумма положительных элементов = ', s:5:2); / / выводим полученную сумме в формате пять знаков для числа и два знака после запятой

end.