Guest User

Untitled

a guest
Jun 24th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. var n:integer;
  2. a:array[1..100,1..100] of integer;
  3. b:array[1..100] of integer;
  4. i,j:integer;
  5. begin
  6. write('n=');
  7. read(n);
  8. writeln('A[n,n]:');
  9. for i:=1 to n do
  10. for j:=1 to n do
  11. read(a[i,j]);
  12.  
  13. b[1]:=a[1,1];
  14. for i:=2 to n do begin
  15. b[i]:=a[i,1];
  16. for j:=2 to i do
  17. if (a[i,j]<b[i]) then
  18. b[i]:=a[i,j];
  19. end;
  20.  
  21. for i:=1 to n do
  22. write(b[i],' ');
  23.  
  24. end.
Add Comment
Please, Sign In to add comment