Можно сделать, например, так, как показано в прилагаемом файле.
Формулы:
В столбце B =1+1/A2
В столбце C =B2<1,2
В ячейке C12 =ИНДЕКС(A2:C11;ПОИСКПОЗ(ИСТИНА;C2:C11;0);1)
На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
write('Input a[',i,']=');
readln(mas[i]);
x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);readln;
<span>end.
Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = </span>
Ответ: файл храниться в файле - <span>САМРАБ.DOC
Файл лежит в папке - </span><span>САМОСТОЯТЕЛНАЯ РАБОТА</span>
Невозможность или сложность создания реальной физической модели
<u>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
WriteAllText('out.txt',(a*a+b*b+c*c).ToString)
end.