Advertisement
Varvara_Golovnova

Untitled

Oct 31st, 2024
19
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. var
  2. a : array [1..n,1..n] of longint;
  3. i,j,min,n : longint;
  4. begin
  5. readln(n);
  6. for i:=1 to n do
  7. for j:=1 to n do
  8. readln(a[i,j]);
  9. min:=a[1,1];
  10. for i:=1 to n do begin
  11. min:=a[i,i];
  12. min:='0';
  13. writeln(a[i,j]);
  14. writeln;
  15. end;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement