Задание 80



Дан целочисленный массив из 12 элементов случайных целых чисел, принадлежащих интервалу {1;45}. Необходимо найти произведение элементов массива, кратных 5.

Решение задания:
a - имя массива
i - индекс элемента массива
a[i] - элемент массива
s - переменная, в которой хранится произведение элементов массива, кратных 5(пяти)

Оператор присваивания значения i-му элементу массива:
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;

Условие кратности 5 i-го элемента массива:
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;

Программа на Паскаль:
program z80;
Const n = 12;
var a:array [1..n] of integer; i, s: integer;

BEGIN
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;
write (a[i], ' ');
if i=n then writeln();
end;

s:= 1;
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;
Writeln ('Произведение элементов массива, кратных пяти равно ', s);
END.