Массиму и сумма!, Задачка! Опции

[yura]

У меня вот какая проблема, я начал изучать Паскаль, но что-то пока не очень удачно, для Вас может это и простой вопрос будет, но для меня пока это немного сложновато. Значит вот задачка -дан массив из 4 строк и 5 столбцов, нужно вывести максимальный элемент первого столбца и пятого столбца. а затем их сумму! Ну вот у меня что-то не получается, точнее через раз. Вот если я ставлю максимальный элемент в 3-ю строку первого столбца(например 8) и в четвертую строку пятого столбца (наример 9), то ответ верный. Выводится сообщение, что максимальный элемент первого столбца -8, а максимальный пятого-9. Но если ставлю уже в другие места, то ответ неправильный или вообще выдаёт какую-то длинную цепочку цифр. Вот, помогите пожалуйста)) Ну и еще если нетрудно будет, то покажите как потом мне сложить эти максимальные элементы и вывести их на экран!! Заранее спасибо! Вот то, что я написал:

program mas;
type  matrix=array [1..5,1..4] of real;
var
	m:matrix;
i,j:integer;
v:real;
function e_max (m:matrix;j:integer):real;
var
	max:real;
	i:integer;
begin
	max:=m[i,j];
	for i:=1 to 4 do
begin
	if m[i,j]> max then max:=m[i,j];
end;
	write (max:4:2);
end;
begin
writeln (‘Введите матрицу [1..5,1..4]’);
for i:=1 to 4 do
for j:=1 to 5 do
read (m[i,j]);
writeln (‘Наибольший элемент первого столбца равен’);
v:=e_max(m,1);
writeln;
writeln (‘Наибольший элемент пятого столбца равен’);
v:=e_max(m,5);
writeln;
read(v);
end;

Пользуемся тегами !

Сообщение отредактировано: volvo - 6.11.2006 21:21