Question

двумерный массив!Написать решение в Pascal!!

Answer 1

1)var i,j,xx:integer;
    x:array [1..5] of integer;
begin
for i:=1 to 5 do begin
   for j:=1 to 5 do begin
      read(xx);
      if i=4 then x[j]:=xx;
      end;
      end;
for i:=1 to 5 do
  write(x[i],' ');
  end.
2)var i,j,xx,sum:integer;
begin
for i:=1 to 5 do begin
   for j:=1 to 5 do begin
      read(xx);
      inc(sum,xx*xx);
      end;
      end;
write(sum);
  end.
3)var i,j,xx,ma:integer;
begin
for i:=1 to 5 do begin
   for j:=1 to 5 do begin
      read(xx);
      if i=5 then if ma<xx then ma:=xx;
      end;
      end;
write(ma);
  end.
4)var i,j,xx,sum:integer;
begin
for i:=1 to 5 do begin
   for j:=1 to 5 do begin
      read(xx);
      if i=j then inc(sum,xx);
      end;
      end;
write(sum);
  end.