Помогите!!! Задание!!1

[Alex.Zander]

Дано 3 задания. вот ссылка. А ссылки-то запрещены, ёк-макарёк!!!
Кто нибудь сделайте!! помогите бездарному прогеру!!!
киньте архив с исходником и эксешником. народ пожалуйста!!!!

[Dirt]

Привет. Вы хоть сами пытались делать?

[NSvirus]

Лаба намбер 6, кушайте на здоровье)

program abc;
uses crt;
const x:array[1..4,1..10] of real= ((11.00, 10.00,10.00,2.00,2.00,2.00,2.00,2.00,3.00,1.00),
                                    (2.68,2.74,2.77,2.76,9.72,2.80,2.72,2.72,2.75,9.75) ,
                                    (18.00,12.00,12.00,17.00,10.00,14.00,11.00,21.00,21.00,5.00),
                                    (2.71,2.71,2.70,2.75,2.70,2.84,2.73,2.70,2.71,2.75));
var y:array[1..4,1..10] of real;
z:array[1..4] of real;
i,j:integer;
max:real;
begin
clrscr;
 for i:=1 to 4  do begin
   max:=x[i,1];
   for j:=2 to 10 do
    if max<x[i,j] then max:=x[i,j];
    z[i]:=max
 end;
for i:=1 to 4 do
  for j:=1 to 10 do
   y[i,j]:=x[i,j]/z[i];
for i:=1 to 4 do
write('maximum v stolbze ',i,'-',z[i]:1:2,'. ');
writeln;
for j:=1 to 10 do begin
 for i:=1 to 4 do
  write(x[i,j]:1:2, '    ');
  writeln;
 end;
 writeln;writeln;
 for j:=1 to 10 do begin
 for i:=1 to 4 do
  write(y[i,j]:1:2, '    ');
  writeln;
 end;
readln;
end.

результат работы программы: