Люди ПОМГИТЕ!!! или может я действительно по пояс деревянный???

[cibexon]

Спасибо тем кто решил прочитать мое сообщение и еще большее спасибо тем кто сможет помочь!я в зтом году поступил на факультет инженерно-компьютерных технологий и как у всех(сомневаюсь что я особенный )возникли проблемы с решением задач.
Дело в том что я и к преподу ездил и книг начитался,но препод немного инвалид попался,честное слово у него с речью что-то,а в книгах ничего конкретного,хотя исключением хочу отметить Библию програмиста(автора не помню)и Делфи для чайников(думаю догадаетесь почему она мне понравилась )
Так вот очень прошу помогите!!!!
Вот задание: Вычислить значение выражения М=(а1+а3+а4):3,где
а1,а3,а4 максимальные елементы соответственно 1,3 и 4 рядков матрицы А(4Х5);
Смысл таков что нужно написать прогу которая находила бы максимальное число в рядках а я увы не могу,хоть и сижу 5 дней(честно)
и пожалуйста обьясните по проще.
я понял что надо с помощью массива,могу обьявить двухмерный массив,но как обьяснить компу что мне от него надо не знаю!!!!

[Tayfun]

Вот находнение максимальныз эллементов для каждой строки матрицы a(4;5)

for i:=1 to 4 do begin
max:=a[i,1];
for j:=2 to 5 do
if max<a[i,j] then max:=a[i,j];
t[i]:=max;
end;

Тут t[1]->a1; t[2]->a2... t[4]->a4, если сопоставить с условием;

[cibexon]

а как объявить двухмерный массив с помощью i и j ,я понимаю что зто количество строк и столбиков а толку?и что такое t?

[Alex21]

Сообщение от cibexon

а как объявить двухмерный массив с помощью i и j ,я понимаю что зто количество строк и столбиков а толку?и что такое t?

var
A : array[1..4,1..5]of integer;
{объявляем массив 4Х5}
t:array[1..4]of integer;
{массив максимальных элементов 1-4 строк матрицы А}
i,j:byte; // используются для организации цикла
max:integer; // поиск Макс элемента в каждой строке
M:real; //ср. арифметическое

Собственно - основной код вам уже составили. Осталось посчитать среднее арифметическое. а1=t[1] a2=t[2]...
Ясно?

[Roof]

а матрицу вводить нада будет пользователю или сделать ее одну?

[kommunist]

вот полный код

program matrica;
uses crt;
const n = 4;
      l = 5;

type  matr = array [1..n,1..l] of integer;  { обьявляем новый тип
var   a:matr;
      i:integer;                            {индексы
      j:integer;
      t:array[1..4] of integer;             {массив для хранения
                                                      суммы строк}
      max:integer;
      m:real;
      summa:integer;
begin                                       {заполним массив случайными числами}
      write('исходная матрица');
      clrscr;
      randomize;
      writeln;
      for i:= 1 to n do
begin
      for j:= 1 to l do
begin
      a[i,j]:=random(10);
      write(a[i,j], ' ');
end;

      writeln;                   {исщем максимальные элементы строк}
end;
       writeln;
       for i:= 1 to 4 do
begin
       max:=a[i,1];
       for j:=2 to 5 do
       if max<a[i,j] then max:=a[i,j];
       t[i]:=max;
       write(t[i],' ');            {выводи сумы строк}
end;
       writeln;
       writeln;
begin
       summa:=0;                   {находим сумму максимальных элементов}
       summa:=t[1]+t[3]+t[4];

       m:=summa/3                  {считаем среднее}
end;
       write('m=',m:2:2);           {выводим m}
       readln;
end.