Imax,imin,I,n:integer;

max,min,posl:real;

begin

writeln('vvedite chislo<=20 ');

readln(n);

for i:=1 to n do

begin

writeln(' a[', i, ']=');

readln(a[i]);

end;

max:=a[1];

imax:=1;

min:=a[1];

imin:=1;

for i:=1 to n do

if a[i]>max

then begin

max:=a[i];

imax:=i;

end

else if a[i]<min

then begin

min:=a[i];

imin:=i;

end;

if imax>imin

then writeln('maksimalnoe chislo blige k koncy massiva')

else writeln('minimalnoe chislo bli

ge k koncy massiva');

readln;

end.

{ удаление максимума сжатием }

Program Udal_szhat;

var

A:array [1..25] of integer;

I,k,j,n : integer;

Imax, max, r: integer;

begin

writeln('vvedite chislo N<=20 ',n);

readln(n);

for i:=1 to n do

begin

writeln('vvedite element a[', i, ']=');

readln(a[i]);

end;

max:=A[1];

imax:=1;

for i:=1 to n do

if A[i]>max

then begin

max:=A[i];

imax:=i;

end;

for i:=imax to n-1 do

A[i]:=A[i+1];

n:=n-1;

for i:=1 to n do

writeln (‘A[‘ ,I, ‘]=' , A[i]);

readln;

end.

{ все положительные элементы – в новый массив }

Program Pos_in_newArr;

var

A, B :array [1..20] of integer;

m,i,k,j,n : integer;

max, r: integer;

begin

writeln('vvedite chislo N<=25 ',n);

readln(n);

for i:=1 to n do

begin

writeln('vvedite element a[', i, ']=');

readln(a[i]);

end;

j:=0;

for i:=1 to n do

if A[i]>0

then begin

j:=j+1;

B[j]:=A[i];

end;

for i:=1 to j do

write (B[i],' '); {В КАКОМ ВИДЕ ПЕЧАТАЕТСЯ МАССИВ? }

readln;

end.

Далее – рассмотрение меню.