Задать массив из 10 целых чисел. Посчитать произведение всех элементов кратных 5 и...

Question

Задать массив из 10 целых чисел. Посчитать произведение всех элементов кратных 5 и больших 8

Answer 1

Program ryazantsev;
var i,p: integer;
first: boolean;
a: array[1..10] of integer;
begin
p:=1; first:=true;
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент массива');
readln(a[i]) //Заполнение массива числами с клавиатуры
end;
for i:=1 to 10 do begin
if (a[i] mod 5 = 0) and (a[i]>8) then begin p:=p*a[i];
first:=false
end
end;
if first then p:=0; //Не было ни одного числа, удовлетв. нашим условиям
writeln(p)
end.