По условиям чемпионата 2003 года из премьер-лиги выбывают две последние в турнирной таблице команды. составьте программу, определяющую обе команды, выбывающие из премьер-лиги. (в паскале, )

1.

использовать Чертежник

алг

нач

выбрать чернила (красный)

сместиться в точку (1, 1)

опустить перо

сместиться в точку (4, 7)

сместиться в точку (5, 7)

сместиться в точку (8, 1)

сместиться в точку (7, 1)

сместиться в точку (6.2,2.5)

сместиться в точку (2.8,2.5)

сместиться в точку (2, 1)

сместиться в точку (1, 1)

поднять перо

сместиться в точку (3.3,3.5)

опустить перо

сместиться в точку (5.7,3.5)

сместиться в точку (5, 5)

сместиться в точку (4, 5)

сместиться в точку (3.3,3.5)

поднять перо

сместиться в точку (0, 0)

кон

2.

использовать Чертежник

алг

нач

сместиться в точку (2.7,1)

опустить перо

сместиться в точку (6,9.8)

сместиться в точку (9.3,1)

сместиться в точку (1,6)

сместиться в точку (11,6)

сместиться в точку (2.7,1)

поднять перо

сместиться в точку (0,0)

кон

3.

использовать Чертежник

алг

нач

сместиться в точку (3,7)

нц 5 раз

опустить перо

сместиться на вектор (0,-2)

сместиться на вектор (-2,0)

поднять перо

сместиться на вектор (3,1)

кц

сместиться в точку (0,0)

кон

Объяснение:

Смотри картинки

Const m=5; n=6;
type arr=array[1..m,1..n] of integer;
procedure p1(var a:arr);
var i,j:integer;
begin
for i:=1 to m do
 for j:=1 to n do a[i,j]:=random(51);
end;
procedure p2(var a:arr);
var i,j:integer;
begin
for i:=1 to m do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end;
procedure p3(var a:arr);
var i,j,s,max,min,jmax,jmin,c:integer;
begin
max:=0; min:=m*50*50;
for j:=1 to n do
 begin
 s:=0;
 for i:=1 to m do s:=s+a[i,j]*a[i,j];
 if s>max then begin max:=s; jmax:=j; end;
 if s<min then begin min:=s; jmin:=j; end;
 end;
writeln('jmax = ',jmax,' jmin = ',jmin); 
for i:=1 to m do
 begin
  c:=a[i,jmax]; a[i,jmax]:=a[i,jmin]; a[i,jmin]:=c;
 end;
end;

var 
b:arr;
begin
Randomize;
p1(b);
writeln('Исходный массив:');
p2(b);
p3(b);
writeln('Полученный массив:');
p2(b);
end.

Пример:
Исходный массив:
  34  47  38  31  18  19
  12   0  43  30   2  33
  20  49  43  16  45  14
  31  32  29  30  50  26
  44  32  30  50   1  23
jmax = 3 jmin = 6
Полученный массив:
  34  47  19  31  18  38
  12   0  33  30   2  43
  20  49  14  16  45  43
  31  32  26  30  50  29
  44  32  23  50   1  30