Ответ:
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, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.
Вот с;
ничего не надо. обожаю эти таблицы делать ахаха. извини, если ошибка где
За одну минуту №1 съест 1/60 объекта "пицца", объект №2 - 1/30, №3 - 1/5. Вместе за одну минуту они съедят 1/60+1/30+1/5 = 1/60+2/60+12/60 = 15/60 = 1/4 объекта "пицца". Целиком объект будет съеден за время в 4 раза больше, т.е. за 4 минуты.
Ответ: 4 минуты.
Алгоритм ол действия осындай 1)мен уйге келдым 2)кырдым 3)сабак ыстедым 4)уыйктадым. Алгоритм ол действия