fork download
copy 
  1. Program four;
  2. uses crt;
  3. Var a:array [1..10,1..12] of integer;
  4. i,j,n,m,min,max,k,jn,jm:integer;
  5. begin
  6. writeln ('Исходная матрица:');
  7. For i:=1 to 5 do
  8. begin
  9.   for j:=1 to 5 do
  10.    begin  
  11.     a[i,j]:=random(100);
  12.     write (a[i,j]:4);
  13.     end;
  14.   writeln;
  15.  end;
  16. max:=a[1,1];
  17. n:=1;
  18. jn:=1;
  19. min:=a[1,1];
  20. m:=1;
  21. jm:=1;
  22. for i:=1 to 5 do
  23. for j:=1 to 5 do
  24.  begin
  25.   if a[i,j]>max then
  26.    begin
  27.     max:=a[i,j];
  28.     n:=i;
  29.     jn:=j;
  30.    end;
  31.   if a[i,j]<min then
  32.    begin
  33.     min:=a[i,j];
  34.     m:=i;
  35.     jm:=j;
  36.    end;
  37.  end;
  38. writeln ('максимальный элемент a[',n,',',jn,']= ',max);
  39. writeln ('минимальный элемент a[',m,',',jm,']= ',min);
  40. for j:=1 to 5 do
  41.  begin
  42.   k:=a[m,j];
  43.   a[m,j]:=a[n,j];
  44.   a[n,j]:=k;
  45.  end;
  46. writeln ('Измененная матрица:');
  47. for i:=1 to 5 do
  48.  begin
  49.   for j:=1 to 5 do
  50.   write (a[i,j]:4);
  51.   writeln
  52.  end;
  53. end.
Success #stdin #stdout 0s 384KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Исходная матрица:
  54  59  71  84  60
  85  54  84  42  62
  64  38  43  29  89
   5  96  27  38  47
  79  81  52  47  56
максимальный элемент a[4,2]= 96
минимальный элемент a[4,1]= 5
Измененная матрица:
  54  59  71  84  60
  85  54  84  42  62
  64  38  43  29  89
   5  96  27  38  47
  79  81  52  47  56
https://ideone.com/fI4csi
language:
Pascal (fpc 3.0.4)
created:
6 years 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!