<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47
Var
x,F:real;
begin
Write('Введите значение аргумента х: ');
Readln(x);
if x > 3.6 then F := 45*x*x+5
else F := 5*x/(10*x*x+1);
Writeln('Значение функции равно ',F)
end.
Тестовое решение:
Введите значение аргумента х: 2
Значение функции равно 0.24390243902439
Введите значение аргумента х: 4
Значение функции равно 725