В массиве, состоящем из 12 чисел, вычислить произведение элементов, значение которых больше 50. ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ НУЖНО!!!!!
В массиве, состоящем из 12 чисел, вычислить произведение элементов, значение которых больше 50.
ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ НУЖНО!!!!!
Гость
Ответ(ы) на вопрос:
Гость//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
Не нашли ответ?
Похожие вопросы