fork download
copy 
  1. const n = 3; const m = 3;
  2. var
  3.   a: array[1..n, 1..m] of integer;
  4.   i, j, min, min_id: integer;
  5. begin
  6.   for i := 1 to n do
  7.     for j := 1 to m do
  8.       a[i, j] := random(10);
  9.   writeln('Исходная матрица:');
  10.  for i := 1 to n do
  11.   begin
  12.     for j := 1 to m do
  13.       write(a[i, j]:3);
  14.     writeln;
  15.     end;
  16.   for i := 1 to n do
  17.   begin
  18.     min := a[i, 1]; min_id := 1;
  19.     for j := 2 to m do
  20.     begin
  21.       if a[i, j] < min then begin
  22.         min := a[i, j]; min_id := j;
  23.         end;
  24.       end;
  25.     writeln;
  26.     write('В строке',' ', i, ' ', 'минимальный элемент: ', min,' ', '(номер элемента: ', min_id, ')');
  27.     for j := 1 to m do
  28.     begin
  29.       a[i, j] := a[i, j] + min_id;
  30.     end;
  31.   end;
  32.   writeln;
  33.   writeln;
  34.   writeln('Матрица после прибавления:');
  35.   for i := 1 to n do
  36.   begin
  37.     for j := 1 to m do
  38.       write(a[i, j]:3);
  39.     writeln;
  40.   end;
  41. end.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Исходная матрица:
  5  5  7
  8  6  8
  5  8  4

В строке 1 минимальный элемент: 5 (номер элемента: 1)
В строке 2 минимальный элемент: 6 (номер элемента: 2)
В строке 3 минимальный элемент: 4 (номер элемента: 3)

Матрица после прибавления:
  6  6  8
 10  8 10
  8 11  7
https://ideone.com/rAPeQo
language:
Pascal (fpc 3.0.4)
created:
10 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!