Сумма максимальных элементов матриц в Pascal

[Бармалей]

Если бы я был действительно умный, то я бы сейчас сам кому-нибудь помогал
А результат всё равно не выводится, я даже после readln в скобках писал sum

[ОДИНОЧЕСТВО В СЕТИ]

я тебе про sum после readln; что то говорила?
нет так какого самодеятельностью занимаешься?
readln; для того чтобы программа ждала нажатия клавиши и сразу не закрывалась
Верни все как было просто перед последним end. напиши readln;
вот так должна выглядеть твоя прога

program lab1;
uses crt;
type matr = array[1..10, 1..10] of integer;
var A, B, C : matr;
	 sum: real;
procedure InMatr (var M:matr; n:integer; matr_name:char);
	var i, j: integer;
	begin
	writeln('Vvedite',n,'-mernuyu matricu',matr_name);
	for i:=1 to n do
		begin
		for j:=1 to n do
		read(M[i, j]);
		end;
	end;
procedure OutMatr (M:matr; n:integer; matr_name:char);
	var i, j: integer;
	begin
	writeln('Matrica',matr_name,': ');
	for i:=1 to n do
		begin
		for j:=1 to n do
		write(M[i, j]);
		writeln ('');
		end;
	end;
function MaxMod (M:matr; n:integer):real;
	var i, j: integer;
		 mm: real;
	begin
	mm:=0;
	for i:=1 to n do
		begin
		for j:=1 to n do
		if abs(M[i, j]) > abs(mm)
		then mm:=M[i, j];
		end;
 maxmod:=mm;
	end;
Begin
clrscr;
InMatr(A, 2, 'A'); InMatr(B, 4, 'B'); InMatr(C, 3, 'C');
OutMatr(A, 2, 'A'); OutMatr(B, 4, 'B'); OutMatr(C, 3, 'C');
sum:= MaxMod(A, 2) + MaxMod(B, 4) + MaxMod(C, 3);
writeln('Summa maximalnih po modulyu elementov matric A,B,C =',sum);
readln;
Readln;
End.

а вот это то что получилось у меня!

[Бармалей]

Изменил код программы, а результат не выводится

[Бармалей]

ЗАРАБОТАЛА, ОНА ЗАРАБОТАЛА!!!
Только не понимаю почему пришлось два раза писать readln; ?

[ОДИНОЧЕСТВО В СЕТИ]

Только не понимаю почему пришлось два раза писать readln; ?

а вот этого и я не знаю!

[Lemo]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

слушай тётю!

Улыбнулся=)

[Бармалей]

Спасибо за помощь и терпение.

[ds.Dante]

Одиночество, тебе с твоим терпением и желанием учить других надо работать учительницой в младших классах. Хочу сказать тебе что-нибудь хорошое, а не получается. :)

[Stilet]

Только не понимаю почему пришлось два раза писать readln; ?

Да такое действительно с паскалем бывает. Думаю это из-за того что он под эмулятором ДОСа запускается из виндовса, и где-то глючок с потоками ввода.
Впрочим это не очень страшно - хотя может говорить о неверно написанной программе.

[ОДИНОЧЕСТВО В СЕТИ]

надо работать учительницей в младших классах

у меня такого желания что-то не возникает

Хочу сказать тебе что-нибудь хорошее, а не получается.

тогда лучше промолчать