program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
nmax = 20;
type
TArray = object
A : array [1..nmax] of integer;
procedure Init;
procedure Enter (n : integer);
function FindMax (i, j : integer) : integer;
procedure Change (i, j : integer);
procedure Print (n : integer);
end;
procedure TArray.Init;
begin
end;
procedure TArray.Enter (n : integer);
var
i : integer;
begin
for i := 1 to n do
begin
Write('A[', i, '] = ');
Readln(A[i]);
end;
end;
procedure TArray.Print (n : integer);
var
i : integer;
begin
for i := 1 to n do
Write(A[i], ' ');
end;
function TArray.FindMax (i, j : integer) : integer;
var
k : integer;
max : integer;
begin
max := A[i];
for k := i + 1 to j do
if A[k] > max then max := A[k];
FindMax := max;
end;
procedure TArray.Change (i, j : integer);
var
temp : integer;
begin
temp := A[i];
A[i] := A[j];
A[j] := temp;
end;
var
B : TArray;
n, start, finish, j, k : integer;
begin
B.Init;
Repeat
Write('Razmer massiva: ');
Readln(n);
until n in [1..nmax];
Writeln('Vvedite massiv: ');
B.Enter(n);
Repeat
Write('vvod 2 number: ');
Readln(start, finish);
until start <= finish;
Writeln('max mejdu elementami: ', B.FindMax (start, finish));
Write('obmen 2 nomera: ');
Readln(j, k);
Writeln('new massiv: ');
B.Change(j, k);
B.Print(n);
Readln;
end.
Сообщение отредактировано: Jarj -