Вложенные циклы >.< За благодарностью не постою! - Turbo Pascal

Формулировка задачи:

Товарищи, помогите... У меня завтра небольшая защита (о которой мне жизнерадостно сообщили только сегодня по телефону), а температура под 39.. Я совершенно ничего не соображаю, а задачки от этого ни куда не делись. Согласна даже отблагодарить через ЯндексКошелёк, ибо пыталась сама целый день решить, в конечном итоге лишь заработала головную боль и ужасное чувство "по-спать бы"... 5 задач =_= вроде и простые..и похожие решали... А не могу и всё. Башка просто не работает. Все задачи решить с помощью вложенных циклов. 1)Известны баллы, полученные в соревнованиях по пятиборью каждым из восьми спортсменов по каждому виду спорта: Определить: а) максимальную из оценок в таблице; б) сколько баллов набрал победитель соревнований. 2) Напечатать числа в виде следующей таблицы: А) 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 Б) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3) Напечатать числа в виде следующей таблицы: А) Б) В) Г) 4) Баллы, полученные в соревнованиях по пятиборью каждым из восьми спортсменов по каждому виду спорта, представлены в виде таблицы: Составить программу, которая запрашивает каждое из значений в таблице и затем повторяет его (на той же строчке). Задачу решить в двух вариантах: а) ввод значений осуществляется по столбцам; б) ввод значений осуществляется: по строкам. 5)Известно количество учеников в каждом из четырех классов каждой параллели школы с первой по одиннадцатую: а) сколько учеников в самом малочисленном классе школы; 6) минимальное значение общего количества учеников, обучающихся в классах одной параллели; в) минимальное значение общего количества учеников, обучающихся в классах "А", "Б", "В" и "Г". г) Для каждой параллели определить численность самого малочисленного класса.

Решение задачи: «Вложенные циклы >.< За благодарностью не постою!»

Листинг программы

program try;
const
n=8;
m=5;
var
mas :array[1..n,1..m] of integer;
i,j,s,max :integer;
begin
randomize;
s:=0; max:=0;
for i:=1 to n do
for j:=1 to m do
begin
mas[i,j]:=random(100);
if mas[i,j] > max then
max:=mas[i,j];
end;
 
for j:=1 to m do
s:=s+mas[i,j];
writeln('ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г*Гї Г®Г¶ГҐГ*ГЄГ* ',max);
writeln('ГЏГ®ГЎГҐГ¤ГЁГІГҐГ«Гј Г*Г*ГЎГ°Г*Г« ',s,' ГЎГ*Г«Г®Гў');
end.

Объяснение кода листинга программы

Код написан на языке Turbo Pascal. Задача программы - вычислить максимальное значение из массива mas, состоящего из случайных чисел от 0 до 99. Для решения задачи используются вложенные циклы. Внешний цикл выполняется от 1 до n (количество строк в массиве) для каждой строки, а внутренний цикл выполняется от 1 до m (количество столбцов в массиве) для каждой ячейки. Внутри внутреннего цикла случайным образом генерируется число от 0 до 99 и записывается в ячейку массива. Если это число больше текущего максимального значения, то оно становится новым максимальным значением. После завершения внутреннего цикла, максимальное значение записывается в переменную max. После завершения внешнего цикла, вычисляется сумма всех значений в строке массива. Затем, выводится на экран максимальное значение и сумма значений. Пример вывода на экран: ГЊГГЄГ±ГЁГ¬ГГ«ГјГГГї Г®Г¶ГҐГГЄГ 99 100 Г®Г¶ГҐГГЄГ 99 ГЏГ®ГЎГҐГ¤ГЁГІГҐГ«Гј ГГГЎГ°ГГ« 100 100 Г®Г¶ГҐГГЄГ* 100