Найти сумму положительных и количество отрицательных элементов массива - Pascal ABC

Формулировка задачи:

Найти сумму положительных элементов массива.Найти количество отрицательных элементов массива.

Решение задачи: «Найти сумму положительных и количество отрицательных элементов массива»

Листинг программы

uses crt;
 
const
  N = 20;
 
var
  mas:array [1..N] of integer;
  i,d,sum:integer;
 
BEGIN
  write('mas: ');
  for i:=1 to N do
    begin
      mas[i]:=Random(10)-5;
      write(mas[i],' ');
    end;
  writeln;
  
  d:=0;
  sum:=0;
  
  for i:=1 to N do
    begin
      if mas[i]>0 then
        sum:=sum+mas[i]
      else if mas[i]<0 then
        inc(d);
    end;
    
  write('sum = ',sum,' d = ',d);
END.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Задача заключается в подсчете суммы положительных и количества отрицательных элементов в массиве. Переменные:

mas - массив, в котором хранятся числа от -5 до 5.
i - индекс текущего элемента массива.
d - количество отрицательных элементов в массиве.
sum - сумма положительных элементов в массиве. Код начинается с инициализации переменной N равной 20. Затем определяется массив mas, в котором каждый элемент будет случайным числом от -5 до 5. Далее идет цикл for, который проходит по каждому элементу массива от 1 до N. Внутри цикла выводится текущий элемент массива. После этого определяется переменная d, которая будет использоваться для подсчета количества отрицательных элементов в массиве. Переменная sum инициализируется нулем, она будет использоваться для подсчета суммы положительных элементов. Затем снова идет цикл for, который проходит по каждому элементу массива от 1 до N. Внутри цикла проверяется знак текущего элемента массива. Если он положительный, то к переменной sum прибавляется значение текущего элемента. Если знак отрицательный, то значение переменной d увеличивается на единицу. В конце выводятся результаты: сумма положительных элементов и количество отрицательных элементов.