Вопрос по информатике:
В массиве, состоящем из 12 чисел, вычислить произведение элементов, значение которых больше 50.
ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ НУЖНО!!!!!
- 17.11.2016 22:05
- Информатика
- remove_red_eye 10031
- thumb_up 15
Ответы и объяснения 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
- 18.11.2016 20:11
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.