Массивы - Pascal ABC (249331)

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

Помогите составить программу Дан массив А(20) Заполните массив случайными числами. 1.Найдите произведение отрицательных элементов. 2.Найдите номера элементов массива,которые меньше 3 3.Посчитайте количество положительных чисел 4.Найдите сумму положительных элементов 5.Найдите номера элементов массива,которые больше -2 6.Посчитайте количество отрицательных чисел

Решение задачи: «Массивы»

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

var a : array [1..20] of integer;
    m3 : array [1..20] of integer;
    m2 : array [1..20] of integer;
    otr, pol, pro, sum, i, j : integer;
// otr - кол-во отрицательных элементов
// pol - кол-во положительных элементов
// pro - произведение отрицательных элементов
// sum - сумма положительных элементов
// m3 - массив индексов элементов, которые меньше 3
// m2 - массив индексов элементов, которые больше -2
begin
  pro:=1;
  for i:=1 to 20 do a[i]:=Random(21)-10;  // [-10,10]
  for i:=1 to 20 do
  begin
    if a[i]<0 then pro:=pro*a[i];
    if a[i]<0 then inc(otr);
    if a[i]>=0 then inc(pol);
    if a[i]>=0 then sum:=sum+a[i];
    if a[i]<3 then
      for j:=1 to 20 do
        if m3[j]=0 then begin
          m3[j]:=i;
          break;
        end;
    if a[i]>-2 then
      for j:=1 to 20 do
        if m2[j]=0 then begin
          m2[j]:=i;
          break;
        end;
  end;
  Writeln(a);
  Writeln('m3 = ',m3);
  Writeln('m2 = ',m2);
  Writeln('Сумма положительных элементов = ',sum);
  Writeln('Кол-во положительных элементов = ',pol);
  Writeln('Кол-во отрицательных элементов = ',otr);
  Writeln('Произведение отрицательных элементов = ',pro);
end.

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

Объявляются переменные: a - массив из 20 целых чисел; m3, m2 - массивы из 20 целых чисел; * otr, pol, pro, sum, i, j - целочисленные переменные.
Инициализируются переменные: pro - единицей; otr, pol - нулем; sum - нулем; m3, m2 - пустыми массивами.
Заполняется массив a случайными числами от -10 до 10 с шагом 1.
Перебираются все элементы массива a:
- Если элемент отрицательный, то он умножается на pro и увеличивается otr на единицу.
- Если элемент положительный, то он добавляется к sum и увеличивается pol на единицу.
- Если элемент меньше 3, то его индекс добавляется в m3, если там еще нет такого элемента.
- Если элемент больше -2, то его индекс добавляется в m2, если там еще нет такого элемента.
Выводятся значения переменных:
- a;
- m3;
- m2;
- sum;
- pol;
- otr;
- pro.