Дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа м. если таких нет, то выдать сообщение об этом. нужно решить в паскале с линейных массивов

265

268

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

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

lizahatemehoten

Информатика

4,4(84 оценок)

Program p; uses crt; const n= 10; {n - количество чисел в последовательности} var i,p, m: integer; a: array[1..n] of integer; begin p: =1; write('введите число m='); readln(m); writeln('введите исходный массив'); for i: =1 to n do {начало цикла по кол эл } begin write('a[',i,']='); readln(a[i]); {ввод эл массива} if a[i]> m then p: =p*a[i]; end; if m=1 then writeln(' элементов > m нет') else writeln('p=',p); {печать произведения} readln end.