В массиве, состоящем из 12 чисел, вычислить произведение элементов, значение которых...

Question

В массиве, состоящем из 12 чисел, вычислить произведение элементов, значение которых больше 50.
ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ НУЖНО!!!!!

Answer 1

//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array[1..12] of integer;
i,s:int64;begin;
s:=1;
for i:=1 to 12 do
begin;
readln(ar[i]);
if ar[i]>50 then s*=ar[i];
end;
writeln(s);
end.

Пример ввода:
1 2 3 4 5 6 7 50 50 51 51 70
Пример вывода:
182070