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 5276KB
comments (?)
stdin 
Standard input is empty
stdout 
Початкова матриця 8x8 mas=
 27|-14| -9|-10| 27|-12| -2| -8|
-17| 26| 23| 15|-12| -9| 14| 24|
 29| 10| 11| -8|  4|-12|  6| -9|
 24| 11|-10| -9| 11|-15| 10|  0|
 -2|-12| -5| 10| 11| 14| -3| 29|
  2|  2|-12|  2| -8|  5| 19|-14|
-19|  5|-16| -4|-13|  7| -8| 16|
 27|  0| -4|  3| 10| -3| 14| 27|
Модифікована матриця 8x8 mas=
 27|-14| -9|-10| 27|-12| -2| -8|
-17| 26| 23| 15|-12| -9| 14| 24|
 29| 10| 29| -8|  4|-12|  6| -9|
 24| 11|-10| 24| 11|-15| 10|  0|
 -2|-12| -5| 10| 29| 14| -3| 29|
  2|  2|-12|  2| -8| 19| 19|-14|
-19|  5|-16| -4|-13|  7| 16| 16|
 27|  0| -4|  3| 10| -3| 14| 27|
https://ideone.com/pSMbRh
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!