fork download 
  1. program LAB5 (input,output);
  2. const
  3.   n = 8;
  4.   m = 8;
  5. var
  6.   mas: array[1..n,1..m] of integer;
  7.   i, j, max, max1: integer;
  8. begin
  9.   randomize;
  10.  
  11.  
  12.   for i := 1 to n do
  13.     for j := 1 to m do
  14.       mas[i,j] := random(10) - 1;
  15.  
  16.   writeln('Початкова матриця ', n, 'x', m, ' mas=');
  17.  
  18.  
  19.   for i := 1 to n do
  20.   begin
  21.     for j := 1 to m do
  22.       write(mas[i,j]:3, '|');
  23.     writeln;
  24.   end;
  25.  
  26.  
  27.   for i := 1 to n do
  28.   begin
  29.     max := mas[i,1];
  30.     max1 := 1;
  31.  
  32.     for j := 2 to m do
  33.     begin
  34.       if mas[i,j] > max then
  35.       begin
  36.         max := mas[i,j];
  37.         max1 := j;
  38.       end;
  39.     end;
  40.  
  41.     mas[i,i] := max; 
  42.     mas[i,max1] := mas[i,i]; 
  43.   end;
  44.  
  45.   writeln('Модифікована матриця ', n, 'x', m, ' mas=');
  46.  
  47.  
  48.   for i := 1 to n do
  49.   begin
  50.     for j := 1 to m do
  51.       write(mas[i,j]:3, '|');
  52.     writeln;
  53.   end;
  54. end.
  55.  
Success #stdin #stdout 0s 5296KB
comments (?)
stdin 
Standard input is empty
stdout 
Початкова матриця 8x8 mas=
  4|  3|  8|  2|  3|  2|  8| -1|
  2| -1|  6|  0|  8|  5|  1|  0|
  6| -1| -1|  0| -1|  2|  1|  3|
 -1|  0|  3|  0|  5|  8|  1| -1|
  8|  1|  4|  4|  7| -1| -1|  1|
  1|  5|  5|  8| -1| -1|  0|  5|
  3|  4|  3|  6| -1|  3|  6|  7|
  7| -1|  6| -1| -1|  4|  7|  2|
Модифікована матриця 8x8 mas=
  8|  3|  8|  2|  3|  2|  8| -1|
  2|  8|  6|  0|  8|  5|  1|  0|
  6| -1|  6|  0| -1|  2|  1|  3|
 -1|  0|  3|  8|  5|  8|  1| -1|
  8|  1|  4|  4|  8| -1| -1|  1|
  1|  5|  5|  8| -1|  8|  0|  5|
  3|  4|  3|  6| -1|  3|  7|  7|
  7| -1|  6| -1| -1|  4|  7|  7|
https://ideone.com/QUl0SN
language:
Pascal (fpc 3.0.4)
created:
20 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!