Question

заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное спасибо с:

Answer 1

const
  n = 10;

var
  x: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  s := 0;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    if x[i] < 0 then s := s + x[i]
  end;
  Writeln;
  Writeln('Сумма отрицательных элементов равна ', s);
end.

Тестовое решение:
Элементы массива
  50  36   5 -13  19  -3  50  -5 -39  12
Сумма отрицательных элементов равна -60