[limelight199]

Код:

var type x=array[1..5] of integer;
y=array[1..6] of integer;
z=array[1..11] of integer;
maxx,maxy,minx,miny,i,k,a:integer;
begin
for i:=1 to 4 do
begin
if x[i]>=x[i+1] then
minx:=x[i]
else
minx:=x[i+1];
end;

for k:=1 to 5 do
begin
if y[k]>=y[k+1] then
miny:=y[k]
else
miny:=y[k+1];
end;

for i:=1 to 4 do
begin
if x[i]<=x[i+1] then
maxx:=x[i]
else
maxx:=x[i+1];
end;

for k:=1 to 5 do
begin
if y[k]<=y[k+1] then
maxy:=y[k]
else
maxy:=y[k+1];
end;

Админ: Пользуемся тегами для оформления кода!

Такой отбор макс и мин элементов будет правильным?