Составьте программу вычисления в массиве суммы всех чисел, кратных 3 - Free Pascal

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

1. Составьте программу вычисления в массиве суммы всех чисел, кратных 3. Помогите пожалуйста

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

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

program pr;
 
var
  i, n, sum: integer;
  a: array [1..100] of integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    a[i] := random(21);           // диапазон заполнения ставь любой 
    write(a[i]:3);
    if (a[i] mod 3 = 0) then
      sum := sum + a[i];
  end;
  writeln;
  writeln('Сумма массива элементов,кратных трём: ', sum);
end.

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

Объявление переменных:
- i, n, sum: integer - целочисленные переменные для цикла, размера массива и суммы соответственно;
- a: array [1..100] of integer - массив для заполнения числами.
Запрос на ввод размера массива.
Инициализация переменной sum значением 0.
Цикл по заполнению массива a случайными числами от 0 до 20 и выведению их на экран.
Проверка, кратно ли число 3, и если да, то добавление его к сумме.
Вывод на экран суммы массива элементов, кратных 3.