Добавь модуль Math, создай на форме Label и после implementation <span>{$R *.dfm} вставь
procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
i,mi,ma,s:integer;
begin
randomize;
s:=0;
ma:=1;
mi:=1;
for i:=1 to n do begin
a[i]:=random(20)-10;
if a[i]>a[ma] then ma:=i
else if a[i]<a[mi] then mi:=i;
label1.caption:=label1.caption + inttostr(a[i]) + ' ';
end;
for i:=min(ma,mi) to max(ma,mi) do s:=s+a[i];
label1.caption:=label1.caption + #13 + inttostr(s);
<span>end;</span></span>
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.
Var a,b,s:real;
begin
Writeln('Привет,я-alconafft');
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln('s= ',s);
end.