См. приложения.
лист Excel живой, внизу для перехода между заданиями ярлыки
Таблица истинности для двух функций, потому, что фото не четкое.
Немного изменил
0,00025 кбайт = 0,25 байт = 2 бит
Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]<m[min]) then min:=i;
end;
writeln('Min ',m[min],' Max ',m[max]);
<span>end.</span>
Проблема проекта - подследствие наступления риска, имеющее негативное влияние на реализацию проекта. Как правило, сопровождается внесением изменений в проект.
А так, в данном разделе нужно указать объект исследования, как будешь проводить изучение, планируемый результат.
Var p, s, a, b : real;
begin
writeln ('Введите - А');
readln (a);
writeln ('Введите - Б');
readln (b);
p:=Sqrt(a*a+b*b)+a+b;
s:=a*b/2;
writeln ('Периметр - '+p);
writeln ('Площадь - '+s);
end.