Двумерный массив Delphi 7

[Hasray]

Мы на паре сделали такой примерчик:

program Project1;

{$APPTYPE CONSOLE}
uses
SysUtils;
{Программа для анализа результатов контрольной работы,
проведенной в 5 классах. В каждом классе разное кличество человек.
Программа определяет средний балл в каждом классе,
а также количество оценок каждого вида}
var a: array of array of integer;
i,j,k,k5,k4,k3,k2,sum:integer;
begin
{1. заполнить массив - ввести данные:}
setlength(a,5); // выделили 5 строк в массиве
for i:=0 to 4 do // для каждой строки повторяем :
begin
write('k=');readln(k);// ввели кол-во чел в I-ом классе
setlength(a[i],k);// выделили память для I-ой строки массива
for j:=0 to k-1 do // перебираем все элементы i-й строки
begin
//write('a[',i,',',j,']='); readln(a[i,j]);
a[i,j]:=random(4)+2; // присваиваем им значение
end;
end;
{2. выведем массив в виде таблицы:}
for i:=0 to 4 do // для каждой строки:
begin
for j:=0 to high(a[i]) do write(a[i,j]:4 ); //вывели i-ую строку
writeln;
end;
{выполним анализ данных в массиве и вывод результатов:}
for i:=0 to 4 do // для каждой строки:
begin
sum:=0; // нач. знач. для суммы эл-в строки
k5:=0; // нач. знач. для кол-ва пятерок
k4:=0;k3:=0;k2:=0; // нач. знач. для кол-ва четверок, троек, двоек
for j:=0 to high(a[i]) do // для каждого элемента iй строки:
begin
sum:=sum+a[i,j]; //добавляем элемент к сумме
// если эл-т - пятерка, то увел-ть кол-во пятерок на 1:
if a[i,j]=5 then k5:=k5+1;
// если эл-т - четверка, то увел-ть кол-во четверок на 1:
if a[i,j]=4 then k4:=k4+1;
// аналогично для троек и двоек:
if a[i,j]=3 then k3:=k3+1;
// и двоек:
if a[i,j]=2 then k2:=k2+1;
end;
write('sred=',sum/(high(a[i])+1):6:2 ); // вывели среднее
write(' "5"=',k5:2); // вывели кол-во пятерок
write(' "4"=',k4:2); // вывели кол-во четверок
write(' "3"=',k3:2); // вывели кол-во троек
write(' "2"=',k2:2); // вывели кол-во двоек
writeln; // перешли на другую строку
end;

readln;
end.

И нам сказали его переделать на другую тему. Нужно написать программу которая определяет лучший результат соревнования. В соревновании k-туров по m-участников.

Я сейчас болею и немогу въехать как сделать, понял что нужно поудалять эти k2,k3,k4... и вначале программы нужно вроде две строки write сначало запрашивающий сколько туров а затем сколько участников ну и затем вводить данные....
Помогите пожалуйста, напишите программу по задаче которой задали...

[Snegovic]

попробуй такой код

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
mas:array [1..100,1..100] of integer;
i,i1,k,m,max:integer;
begin
Writeln('Введите количество туров');
Readln(k);
Writeln('Введите количество участников');
ReadLn(m);
for i:=1 to k do
for i1:=1 to m do
begin
Writeln('Введите результат ,i1,' участника ',i,' тура');
ReadLn(mas[i,i1]);
end;
max:=0;
for i:=1 to k do
for i1:=1 to m do
if mas[i,i1]>max then
max:=mas[i,i1];

Writeln('Лучший результат = ', max);
Readln;

end.

Проверил вроде работает, извини, если не правильно, моё первое сообщение.

[Hasray]

Спасибо что написал код но он чёто ошибочку выдаёт и как ты проверил с русскими словами ? о_О

[Snegovic]

Напиши вместо русских букв транслитом, а что именно за ошибка???

[Hasray]

Вот что пишет

[Mad_Cat]

кавычку после результат поставь)

[Hasray]

Спасиб я чёт туплю сегодня =)

[чайникк]

помогите мне,пожалуиста...ну вот задане..
. Задана матрица A(n*m) Вычислить матрицу B отличающуюся от матрицы A дополнительным столбцом, каждый элемент которого равен количеству положительных элементов соответствующей строки матрицы A