Двумерный массив

[mannn]

Дана матрица А размером M на N, M<=10, N<=20. Найти сумму последней строки матрицы. Если она > 0, записать это значение на место последнего элемента первой строки, иначе - на место максимального элемента матрицы. Полученный массив А распечатать.

Вот тут что-то сделал, но сумму последней строки не считает и не переставляет на место последнего элементы первой строки и на место максимально элемента

program abc;
const Mmass=10; Nmass=20;
var a:array[1..Mmass,1..Nmass] of integer;
i,j,sum,maxi,maxj,N,M:integer;
begin
write('Введите воличество строк:');
readln(M);
write('Введите воличество стобцов:');
readln(N);
writeln('Введите элементы массива А:');
Randomize;
For i:=1 to M do
begin
For j:=1 to N do
begin
write('A[',i,'][',j,']=');
readln(A[i][j]);
a[i,j]:=-90+Random(181);
end;
Writeln;
end;
Writeln;
Writeln;
sum:=0;
maxi:=0;
maxj:=0;
For j:=1 to n do
sum:=sum+a[m,j];
For i:=1 to m do
For j:=1 to n do
begin
maxi:=i;
maxj:=j;
end;
Writeln('sum = ',sum,'; maxi = ',maxi,'; maxj = ',maxj);
Writeln;
If sum>0 then
a[1,n]:=sum else
a[maxi,maxj]:=sum;
For i:=1 to m do
begin
For j:=1 to n do
Write(a[i,j],'  ');
Writeln;
end;
Writeln;
Readln;
end.

[Aleksandr H.]

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

Если она > 0, записать это значение на место последнего элемента первой строки, иначе - на место максимального элемента матрицы.

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

Вот тут что-то сделал, но сумму последней строки не считает и не переставляет на место последнего элементы первой строки и на место максимально элемента

Значит не сделал ничего

[mannn]

я понимаю, лучше бы помогли

[Aleksandr H.]

пробуй

program abc;
const Mmass=10; Nmass=20;
var a:array[1..Mmass,1..Nmass] of integer;
i,j,sum,max,maxi,maxj,N,M:integer;
begin
write('Введите воличество строк:');
readln(M);
write('Введите воличество стобцов:');
readln(N);
writeln('Введите элементы массива А:');
Randomize;
For i:=1 to M do
begin
	For j:=1 to N do
	begin
		write('A[',i,'][',j,']=');
		readln(A[i][j]);
		a[i,j]:=-90+Random(181); {тут уже или readln или random, надо определиться}
	end;
	Writeln;
end;
Writeln;
Writeln;
sum:=0;
maxi:=1;
maxj:=1;
max := a[1,1]
For j:=1 to n do
	sum:=sum+a[m,j];
For i:=1 to m do
	For j:=1 to n do
	begin
		if a[i,j] > max then
		begin
			maxi:=i;
			maxj:=j;
			max := a[i,j];
		end;
	end;
Writeln('sum = ',sum,'; maxi = ',maxi,'; maxj = ',maxj);
Writeln;
If sum>0 then
	a[1,n]:=sum 
else
	a[maxi,maxj]:=sum;
For i:=1 to m do
begin
	For j:=1 to n do
		Write(a[i,j],'  ');
Writeln;
end;
Readln;
end.

[Aleksandr H.]

как вариант

program abc;
const Mmass=10; Nmass=20;
var a:array[1..Mmass,1..Nmass] of integer;
i,j,sum,max,maxi,maxj,N,M:integer;
begin
write('Введите воличество строк:');
readln(M);
write('Введите воличество стобцов:');
readln(N);
Randomize;
maxi:=1;
maxj:=1;
max := -200;{a[1,1]};
s:=0;
For i:=1 to M do
begin
	For j:=1 to N do
	begin
		a[i,j]:=-90+Random(181);
		if a[i,j] > max then
		begin
			maxi:=i;
			maxj:=j;
			max := a[i,j];
		end;
		if i = m then sum:=sum+a[i,j];
		write(a[i,j]:4);
	end;
	Writeln;
end;
writeln;
Writeln('sum = ',sum,'; max = ',max,'; maxi = ',maxi,'; maxj = ',maxj);
Writeln;
If sum>0 then
	a[1,n]:=sum 
else
	a[maxi,maxj]:=sum;
For i:=1 to m do
begin
	For j:=1 to n do
		Write(a[i,j],'  ');
	Writeln;
end;
Readln;
end.

[mannn]

Спасибо, а можно сделать, чтобы я выводил значения а не рандомом?

[Aleksandr H.]

Значение вводятся рандомом, а не выводятся. Чтобы вводить вручную, замени фрагмент рандома на ввод. В чем проблема-то?