Question

Постройте алгоритм, определяющий, сколько раз число 10 встречается среди элементов таблицы А(15) , состоящей из целых чисел. Если таких чисел нет, вычислить произведение всех элементов.

Answer 1

 k:=0;
for i:= 1 to 15 do
  if (A[i]=10) then k:=k+1;