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

218

244

Посмотреть ответы 2

Ответы на вопрос:

Светик1111прод

Информатика

4,5(85 оценок)

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.