Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т - Pascal

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

Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т.

Решение задачи: «Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т»

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

Program cal;{Найдите наименьший четный элемент массива. 
Если такого нет, то выведите первый элемент. 
И посчитайте сумму нечетных элементов массива.}
const
  n=10;
var
  i,j,s: integer;
  a: array [1..n] of integer;
begin
  s:=0;
  writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:= random(100);
    write(a[i],' ');
    if i mod 2=0 then s:=s+a[i]; 
  end;
  i := 1;
  for j:=2 to N do
    if a[i] > a[j] then i := j;
    writeln();
  write('Наименьший элеммент массива:', a[i]);
  writeln();
  write('Сумма элеммент массива:', s);
  end.

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

Список элементов кода:

Название программы: cal
Константа: n = 10
Тип и имя переменной: i, j, s: integer; a: array [1..n] of integer;
Инициализация переменной суммы: s := 0;
Вывод исходного массива: writeln('Исходный массив:');
Цикл для заполнения массива случайными числами: for i:=1 to n do begin a[i]:= random(100); write(a[i],' '); if i mod 2=0 then s:=s+a[i]; end;
Поиск наименьшего четного элемента массива: i := 1; for j:=2 to n do if a[i] > a[j] then i := j;
Вывод наименьшего четного элемента массива: writeln('Наименьший элеммент массива:', a[i]);
Вывод суммы элементов массива: writeln('Сумма элеммент массива:', s);
Конец программы: end.