запишите программу для задачи В линейной таблице P(1:10) подсчитать произведение элементов, больших числа 12
Ответы
Ответ дал:
0
Ответ:
var a:array [1..10] of integer;
i:integer;
b:integer;
begin
for i:=1 to 10 do
if (a[i]>12) and (b=0) then b:=a[i] else if a[i]>12 then b:=b*a[i];
writeln (b);
end.
Объяснение:
Берем массив а под линейную таблицу. Создаем цикл фор, который проверяет сначала если наша переменная с ответом=0 и элемент массива>12, то наш ответ=элементу массива, после этого если элемент массива>12, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.
BobbyFresnel:
Все здорово. Только если "берем массив", хорошо бы его элементам задать значения. А то Вы его описали - и привет.
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад