Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер - 50

var

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

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

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

begin

n : = 1; / / нужно, чтобы произведение не равнялось 0.

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

begin

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

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

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

end;

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

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

end.