Написать программу на Паскаль

+ 0 -

Wowa123466

13 марта 2017 г., 16:39:54 (7 лет назад)

const
  n = 15;

var
  i: integer;
  a: array[1..n] of real;
  s:real;

begin
  Randomize;
  writeln('Исходный массив');
  s:=0;
  for i := 1 to n do
  begin
    a[i] := (Random(100) - 50)/1.7;
    write(a[i]:8:3);
    if a[i]<0 then s:=s+a[i]
  end;
  writeln;
  writeln('Сумма отрицательных элементов равна ',s);
end.

Тестовое решение:

Исходный массив
  12.941  -0.588 -22.941  19.412  24.706  -1.176   3.529   5.882  23.529   7.059 -28.235  25.882 -10.588 -24.706  28.824
Сумма отрицательных элементов равна -88.2352941176471