Создайте массив из 50 элементов (диапазон 0..49) с генератора случайных чисел из отрезка [-10; 50]. выведите массив "в строку". подсчитать сумму элементов массива. нужна програма и , если можно, краткое описание идеи алгоритма и сам алгоритм.

Var
  i: integer;
  s: integer;
  a: array[0..49] of integer;

begin
  s := 0;
  Randomize;
  for i := 0 to 49 do
  begin
    a[i] := random(60) - 10;
    s := s + a[i];
    write(a[i], ' ')
  end;
  writeln;
  writeln('Сумма элементов массива ', s)
end.

Пример выполнения в среде PascalABC.NET:
46 10 18 47 16 20 3 7 27 -10 10 18 19 28 0 3 21 26 32 36 1 -8 36 32 44 25 35 -1 -4 45 30 35 28 -8 45 6 20 34 0 47 7 9 34 39 47 5 29 10 47 26
Сумма элементов массива 1072

Доброго времени суток!


с Ув. Паук