Написать программу Заполнить массив из 15 элементов случайными числами (-20;80) Посчитать...

Question

Написать программу Заполнить массив из 15 элементов случайными числами (-20;80) Посчитать сумму всех элементов массива Посчитать количество отрицательных элементов

Answer 1

const

  n = 15;

var

  a:array[1..n] of integer;

  i, Count, Summ:integer;

begin

  randomize;

  Count := 0;

  Summ := 0;

  for i := 1 to n do

  begin

    a[i] := random(101) - 20;

    write(a[i], ' ');

    inc(Summ, a[i]);

    if a[i] < 0 then

      inc(count);

  end;

  writeln;

  writeln('Summ = ', Summ);

  writeln('Count = ', count);

  readln;

end.