Заполнить массив из 25 элементов случайными числами в интервале (20, 100) и вычислить сумму всех элементов массива А, которые делятся на 3

var

i, n: integer; / / объявляем переменные целочисленного типа.

arr: array [1 ... 25] of integer; / / объявляем массив.

s : string; / / объявляем переменную строкового типа.

begin

for i : = 1 to 25 do / / начало цикла.

begin

arr[i] : = random (20, 100); / / заполняем элементы массива числами из диапазона 20; 100.

s : = s + inttostr (arr[i]) + ' '; / / записываем массив в строку.

if (arr[i] mod 3 = 0) then n : = n + arr[i]; / / считаем сумму элементов, которые делятся на 3.

end;

writeln ('Массив: ', s); / / вывод массива на экран.

writeln ('Сумма элементов массива, которые делятся на 3 равна: ', n); / / вывод строки на экран.

end.