Question

Pascal ABC . Срочно !!!!!! Заполнить массив из 10-ти элементов целыми случайными числами в диапазоне [ – 20;20], вычислить сумму положительных элементов массива

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-20,20); a.Println;
  Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.

Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42

Answer 2

Я могу помочь вам с решением задачи на языке программирования Pascal ABC. Вот пример кода, который заполняет массив из 10 элементов целыми случайными числами в диапазоне от -20 до 20 и вычисляет сумму положительных элементов массива:

program ArraySum;
var
  A: array [1..10] of integer; // объявляем массив из 10 целых чисел
  i, sum: integer; // объявляем переменные для индекса и суммы
begin
  Randomize; // инициализируем генератор случайных чисел
  sum := 0; // присваиваем сумме начальное значение 0
  for i := 1 to 10 do // цикл по всем элементам массива
  begin
    A[i] := Random(41) - 20; // генерируем случайное число от -20 до 20 и записываем его в массив
    writeln('A[', i, '] = ', A[i]); // выводим значение элемента массива на экран
    if A[i] > 0 then // если элемент массива положительный
      sum := sum + A[i]; // прибавляем его к сумме
  end;
  writeln('Сумма положительных элементов массива = ', sum); // выводим сумму на экран
end.

Вы можете запустить этот код в онлайн-компиляторе Pascal ABC [здесь](https://stackoverflow.com/questions/17334752/summation-loop-program-in-pascal) и посмотреть результат. Надеюсь, это поможет вам понять, как решить задачу. Удачи!