Найти максимальный и минимальный элементы массива и позиции этих элементов.

 const m=10;
var a:array[1..m] of integer;
     min,imin,i,imax,max,p:integer;
Begin
    randomize;
    writeln('Создание массива и его вывод');
      for i:=1 to m do
         begin
           p:=random(21);
           a[i]:=p-10;
           write(a[i]:4);
         end;
      max:=a[1];
      min:=a[1];
      imax:=1;
      imin:=1;
      for i:=2 to m do
        begin
        if max<a[i] then
          begin
          max:=a[i];
          imax:=i
          end;
        if min>a[i] then
          begin
          min:=a[i];
          imin:=i
          end;
        end;
 
      writeln;
      writeln('значение максимального=',max);
      writeln('Индекс максимального=',imax);
      writeln('значение минимального=',min);
      writeln('Индекс минимального=',imin);
      writeln('Для завершения работы нажмите <Enter>');
readln
END.

const m=10;
var a,b,c:array[1..m] of integer;
i:byte; p:integer;
    Begin
    randomize;
    writeln('Pervii massiv');
      for i:=1 to m do
         begin
           p:=random(21);
           a[i]:=p-10;
           write(a[i]:4);
         end;
         writeln;
    writeln('Vtoroi ');
    for i:=1 to m do
         begin
         p:=random(21);
           b[i]:=p-10;
           write(b[i]:4);
         end;
         readln;
  writeln('Polucennii massiv');
         for i:=1 to m do
        begin
        c[i]:=a[i]+b[i];
        write(c[i]:4);
          end;
      readln
END.

Const n = 15;
 Var a: Array[1..n] of Integer;
     i, j, x: Integer;
Begin
 Randomize;
  WriteLn('Ishodn massiv: ');
  for i := 1 to N do
  begin
    a[i] := Random(11)-10;
    Write(a[i]: 4);
  end;
  WriteLn;
     for i := 1 to N - 1 do
    for j := i + 1 to N do
      if (a[i] < a[j]) then
      begin
        x := a[i];
        a[i] := a[j];
        a[j] := x;
      end;
  WriteLn;
 
  WriteLn;
 
  WriteLn('Preobrazovannii massiv: ');
  for i := 1 to n do Write(a[i]: 4);
  WriteLn; ReadLn;
End.

uses crt;
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(21)-21;
write(a[i]:4);
end;
writeln;
for i:=1 to n do
If a[i]>0 then  a[i]:=a[i]*5 else a[i]:=-7;
for i:=1 to n do
write(a[i]:4);
readln;
end.