Паскаль - задача на Массивы

[Даниил]

Ребят, Всем Добрый Вечер!
Мне срочно нужно решить вот эту штуку:
Тема Массивы
В квадратном массиве В (3,3) найти сумму наибольших значений элементов его строк.
И пояснить хоть как то чтобы я преподу мог хоть что то прокумекать как и что я решал и откуда брал )
Братцы выручайте пожалуйста!!!

[C_O_D_E]

Ищешь в каждой строке максимальный элемент
Потом суммируешь их
[syntax=Delphi]
for i:=1 to 3 do begin
max=a[i,1];
for j:=2 to 3 do begin
if a[i,j]>max then max:=a[i,j];
end;
k=k+max;
end;
[/syntax]

[Даниил]

[syntax='Delphi']
program agggg;
var maX:real;
M:array[1..3,1..3]of real;
i,j:integer;
sum:real;
begin
sum:=0;
writeln('enter 3x3 line:');
for i:=1 to 3 do begin
for j:=1 to 3 do
read(m[i,j]);
readln;
end;

for i:=1 to 3 do begin
maX:=m[i,1];
for j:=2 to 3 do begin
if max < m[i,j] then maX:=m[i,j];
end;
sum:=sum+max;
end;

writeln('sum = ', sum);

end.
[/syntax]
Вот это вот правильно?

[C_O_D_E]

Правильно.

[Даниил]

А чё мне сказать, если курица эта спросит Студент Данила а как ты решил то это всё, ну ка объясни ? )

[C_O_D_E]

Читай второй пост.
в первом блоке циклов ты заполняешь массив
во втором

Ищешь в каждой строке максимальный элемент
Потом суммируешь их

потом выводишь на экран сумму
Это описано в любом учебнике. Учитесь книжки читать.

[Даниил]

Хаха спасибо тебе большое нет книжек, так вышло что в школе у меня информатики не было, в шараге тоже, а ща в инсте требуют скоты =)

[MOTOCoder]

Берете гугл или яндекс и ищете что-то типа "поиск максимального элемента паскаль", думаю, будет достаточно.
А вообще, купите книгу, пригодится .

[Даниил]

Да боюсь не пригодиться, информатика 1 год только, спасибо большое Вам

[Даниил]

Ребят, а это не лучше? или лучше всё оставить как есть?
[syntax='Delphi']
program pr;
var a: array [1..3,1..3] of real;{Исходный массив}
max: array [1..3] of real; {Массив максимальных элементов}
i,j: integer;
begin
{Вводим элементы массива и заодно определяем максимальный}
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
if j=1 then max:=a[i,1]
else
if a[i,j]>max then max:=a[i,j];
end;
writeln('sum=',max[1]+max[2]+max[3]);
readln;
end.
[/syntax]