Приведите примеры задач,содержащих линейный алгоритм решения.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

1)

program t1;
var
a: array[1..6] of integer;
i, m, mi: integer;
begin
writeln('ввод массива');
for i := 1 to 6 do
readln(a[i]);
mi := 1;
m := a[mi];
for i := 2 to 6 do
if a[i] < m then
begin
mi := i;
m := a[mi];
end;
writeln('минимум: ', m, ' (a[', mi, '])');
end.

2) предполагая, что 'коробочка' - это корень

program t2;
const
F = -8;
T = 6;
S = 2;
var
i: real;
function GetY(x: real): real;
begin
if (x > -3) and (x <= 3) then
GetY := sqrt(x)
else
GetY := 1 / (x * x);
end;
begin
writeln('промежуток [', F, '; ', T, '], шаг ', S, ':');
i := F;
while i <= T do
begin
writeln('y(', i, ') = ', GetY(i));
i := i + S;
end;
end.