Последняя задача:
Код:
Var a:array[1..1000,1..1000] of longint;
b:array[1..1000] of longint;
i,j,n,m,max,v:longint;
Begin
Writeln('Vvedite storony kvadrata'); {no comment}
Readln(n);
m:=n;
v:=0;
Writeln('Zapolnenie massiva'); {no comment}
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[j,i]>max
Then max:=a[j,i];
If n=m
then b[j]:=a[j,i];
end;
For i:=1 to j do
v:=v+b[i];
Writeln(v:2) ;
Readln;
End.
Писал на Pascal ABC ( и она заработала сразу!!!)