Для одномерного массива x3, содержащего n элементов, найти произведение и количество элементов, превышающих заданное число с

224

296

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

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

dimashevchuk007

Информатика

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

Var i, p, s,c : integer; a : array [0..n] of integer; {n - заданное число } begin p: =1; s: =0; readln(c); for i: =0 to n do {заменить n на кол-во элементов} begin if a[i] > c then begin p: = p * a[i]; s: = s + 1; end; end; writeln(p); {вывод произведения чисел больше заданного} writeln(s); {вывод колличества этих чисел} end.