SaveText.Ru

Tz2
  1. [Пересланное сообщение]
  2.   Николай Никитин, вчера в 21:47
  3.   const N=5;K=4;a=-5;b=25;L=2;
  4.    
  5.   Var
  6.   M2: array[1..N, 1..N] of integer;
  7.   M1: array[1..N] of integer;
  8.   M1a: array[1..N] of integer;
  9.   i,j,maxM,maxM2,maxI,maxJ,sumK:integer;
  10.    
  11.   begin
  12.    
  13.   for i:=1 to N do begin
  14.   for j:=1 to N do
  15.   M2[i,j] := Random((b-a)+1)+a; // Заполнение массива
  16.   end;
  17.    
  18.   writeLn('№ 1 2 3');
  19.   writeLn(' ________________');
  20.   for i:=1 to N do begin
  21.   writeLn('');
  22.   write(i,'|');
  23.   for j:=1 to N do
  24.   write(M2[i,j]:8);
  25.   end; // Вывод массива
  26.    
  27.    
  28.   for i:=1 to N do begin
  29.   for j:=1 to N do begin
  30.   if M2[i,j] > maxM then begin
  31.   maxM := M2[i,j];
  32.   maxI:=i;
  33.   maxJ:=j;
  34.   end;
  35.   end;
  36.   end; // Нахождение максимального элемента
  37.    
  38.    
  39.   WriteLn(' ');
  40.   WriteLn(' ');
  41.   WriteLn('Максимальный элемент массива M2[',maxI,',',maxJ,'] = ',maxM); //Вывод максимального элемента
  42.    
  43.    
  44.   for i:=1 to N do
  45.   sumK:=sumK+M2[i,K]; // Нахождение среднего арифметического
  46.    
  47.    
  48.   WriteLn(' ');
  49.   WriteLn(' ');
  50.   WriteLn('Среднее арифметическое элементов столбца ',K,'= ',sumK/N:0:3); //Вывод среднего арифметического
  51.    
  52.   WriteLn(' ');
  53.   WriteLn(' ');
  54.   for i:=1 to N do begin
  55.   for j:=1 to N do begin
  56.   if M2[L,j] > maxM2 then begin
  57.   maxM2 := M2[L,j];
  58.   maxJ:=j;
  59.   end;
  60.   end;
  61.   M1[i]:= MaxM2;
  62.   MaxM2 := -1000;
  63.   M2[L,MaxJ]:=-1000;
  64.   end;
  65.   for i:=1 to N do begin
  66.   M2[L,i]:=M1[i];
  67.   end; //Сортировка от большего к меньшему
  68.    
  69.    
  70.   writeLn('Строка ',L,' отсортированна от большего к меньшему:');
  71.   writeLn('№ 1 2 3');
  72.   writeLn(' ________________');
  73.   for i:=1 to N do begin
  74.   writeLn('');
  75.   write(i,'|');
  76.   for j:=1 to N do
  77.   write(M2[i,j]:8);
  78.   end; // Вывод массива
  79.    
  80.    
  81.   WriteLn(' ');
  82.   WriteLn(' ');
  83.   for i:=1 to N do begin
  84.   M1a[i]:=M2[i,K];
  85.   end;
  86.   for i:=1 to N do begin
  87.   M2[i,K]:=M1[i];
  88.   end;
  89.   for i:=1 to N do begin
  90.   M2[L,i]:=M1a[i];
  91.   end; //Смена L-строки и K-столбца местами
  92.    
  93.    
  94.   writeLn(L,'-ий столбец и ',K,'-ая строка поменяны местами:');
  95.   writeLn('№ 1 2 3');
  96.   writeLn(' ________________');
  97.   for i:=1 to N do begin
  98.   writeLn('');
  99.   write(i,'|');
  100.   for j:=1 to N do
  101.   write(M2[i,j]:8);
  102.   end; // Вывод массива
  103.    
  104.   end.

Share with your friends:

Print