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, max_index: 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(50) - 20;
  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.     max_index := 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.         max_index := j;
  38.       end;
  39.     end;
  40.     // Заміна елементів
  41.     mas[i,i] := max; // На головну діагональ
  42.     mas[i,max_index] := 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.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
Початкова матриця 8x8 mas=
 -5|-15|-19|  6| 17|-20| 22| -4|
-20| 24| -1| 15|-12|  0|  9|  2|
 25|  1|  0|-15|  3|  1|  8|-19|
  7| 22|  1| 17|-20| 13| 10| 18|
 -5| 15|-11| 11| 13|  9| 10| -8|
 12| 12| 25|-10| 29|  6| 28| 12|
-13| 26|-16| 23|  8|-20| 24| 22|
-19| 10|  4|  9|  1| 14|  3| 23|
Модифікована матриця 8x8 mas=
 22|-15|-19|  6| 17|-20| 22| -4|
-20| 24| -1| 15|-12|  0|  9|  2|
 25|  1| 25|-15|  3|  1|  8|-19|
  7| 22|  1| 22|-20| 13| 10| 18|
 -5| 15|-11| 11| 15|  9| 10| -8|
 12| 12| 25|-10| 29| 29| 28| 12|
-13| 26|-16| 23|  8|-20| 26| 22|
-19| 10|  4|  9|  1| 14|  3| 23|
https://ideone.com/INRZDF
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!