Цитата:
Сообщение от Mr.Програмист
Код:
Uses CRT;
Var a:array[1..100,1..100] of INTEGER;
b:array[1..100] of INTEGER;
i,j,n,max,v:longint;
Begin
Writeln('Введите сторону квадрата');
Readln(n);
v:=0;
Writeln('Заполнение массива');
For i:=1 to n do
For j:=1 to n do
Readln(a[i,j]);
max:=a[1,1];
For j:=1 to n do
For i:=1 to n do
begin
if a[i,j]>max
Then max:=a[i,j];
b[j]:=max;
end;
For i:=1 to n do
v:=v+b[i];
Writeln(v:2);
for i:=1 to n do
begin
for j:=1 to n do
begin
Write(a[i,j],' ');
end;
Writeln;
end;
End.
|
А другие замечания Миши (Shrek) Вы проигнорировали? Напрасно. Всего-то и нужно было, что
Код:
Uses CRT;
Var
a:array[1..100,1..100] of INTEGER;
b:array[1..100] of INTEGER;
i,j,n,max,v:longint;
Begin
Writeln('Введите сторону квадрата');
Readln(n);
v:=0;
Writeln('Заполнение массива');
For i:=1 to n do
For j:=1 to n do
begin
Write('a[',i:2,',',j:2,']= ');
Readln(a[i,j]);
end;
For j:=1 to n do
begin
max:=a[1,j];
For i:=1 to n do
begin
if a[i,j]>max then
max:=a[i,j];
end;
b[j]:=max;
end;
For i:=1 to n do
v:=v+b[i];
Writeln(v:2);
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j],' ');
Writeln;
end;
Readln;
End.
Еще исправлены ошибки в построении циклов.
Теперь про другие дела.
Несмотря на то, что Вы так и не довели программу до ума, я не хочу отлучать Вас от форума.
Вместе с тем, прошу понять - до права выкладывать свои программы Вы явно не доросли, поэтому убедительно прошу (пока прошу) воздержаться от этого. Учитесь, взрослейте - а там посмотрим.
P.S. Между прочим, слова "программа", программист" и т.д. пишутся с двумя "м". Кроме того, в русском языке нет приставки "з", есть приставка "с", а потому не "зделал", а "сделал". Очень рекомендую и русский язык "подтянуть" - в жизни пригодится.