Паскаль, 9 класс Дан массив целых чисел, состоящий из 10 элементов. Массив ввести с клавиатуры. Найти сумму отрицательных элементов. Найти количество тех элементов, значения которых положительны.

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, summ, n: integer;

begin

 writeln('Введите массив: ');

 for i := 1 to 10 do begin

   readln(arr[i]);

   if arr[i] > 0 then inc(n);

   if arr[i] < 0 then summ := summ + arr[i];

 end;

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

 writeln('Сумма отрицательных элементов: ', summ);

 writeln('Количество положительных элементов: ', n);

end.