Program dmas_18;
uses crt;
const N=10;
var A: array[1..n,1..n] of integer;
    i, k, max, Sum: integer;
begin
randomize;
For i:=1 to n do
begin
For k:=1 to n do
begin
a[i,k]:=random(50); 
write(a[I,k]:4);
end;
writeln;
end;
Sum := 0;
for i:=1 to n do begin
  max := A[i,1];
  for k:=2 to n do
    if A[i,k] > max then 
 max := A[i,k];
  Sum := Sum + max;
end;
writeln('Сумма максимальных эл. = ',Sum);
Readln;
end.