Заполнить случайным образом двумерный массив

@Petro29 · Регистрация: 30.04.2016

Студворк — интернет-сервис помощи студентам

Заполнить случайным образом двумерный массив
размерностью N x M. Поменять местами элементы
следующих столбцов:
1) 1-й столбец – n-й столбец
2) 2-й столбец – (n – 1)-й столбец
3) 3 – столбец – (n – 2)-й столбец и т. д.
Вывести оба массива на экран.
В своё время был дан ответ в виде такой программы
(конкретного модератора я тогда не записал, поэтому
не помню).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses Crt;
Const N = 4; M = 4;
Var A:array[1..N, 1..M] of Integer;
        i, j, X: Integer;
begin ClrScr;
WriteLn(‘ Исходный массив:’);
   for i:= 1 to N do begin
   for j:= 1 to M do begin
     A[i, j]:= Random(80) – 20;
         Write(A[i, j]:4);
   end; WriteLn; end;
{Блок перестановки столбцов}
   for j:= 1 to M div 2 do begin
      X:= A[I, j]:  A[I, j]:= A[i, 1 + M – j];
       A[i, j]:= A[i, 1 + M – j];
   end;
     GoToXY(20, 1);
WriteLn(‘ Изменённый массив:’);
   for i:= 1 to N do begin
      GoToXY(20, i * 1 + 1);
   for j:= M downto 1 do
Write(A[i, j]:4);
    end; WriteLn;
   ReadLn
end.

На выходе имеем:

Pascal
1
2
3
4
5
Исходный массив:     Изменённый массив:
-20  -18   48  -4             -4   48  -18  -20
   1    33    5   -8              -8    5    33     1
   9    14  -14  17             17 -14   14     9 
-15   47   -16   3             -15  47  -16    3

Всё бы ничего, да вот в последней строке перестановка
чисел почему то не получилась. В чём дело? (Правда,
в оригинале было N = 6 и M = 6. Но с последней строкой
то же самое).
И ещё: как оказалось, эту программу можно сделать и
покороче – по типу с порядковыми числами и с правиль-
ным выходом результата.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses Crt;
Const N = 4; M = 5;
Var A:array[1..N, 1..M] of Integer;
       i, j, X: Integer;
begin ClrScr;
WriteLn(‘ Исходный массив:’);
   for i:= 1 to N do begin
   for j:= 1 to M do begin
     A[i, j]:= Random(80) – 20;
   end; WriteLn; end;
{Блок перестановки столбцов}
      GoToXY(23, 1)’
WriteLn(‘ Изменённый массив:’);
   for i:= 1 to N do begin
       GoToXY(23, i * 1 + 1);
   for j:= M downto 1 do begin
Write(A[i, j]:4);
   end; end; WriteLn;
  ReadLn
end.

На выходе имеем:

Pascal
1
2
3
4
5
Исходный массив:              Изменённый массив:
-20  -18   48   -4    1                 1   -4  48  -18  -20
 33     5    -8    9   14                14   9   -8     5   33
-14    17  -15  47 -16              -16  47 -15   17  -14
   3    53     9   41   6                 6   41    9   53     3

То есть, обыкновенный массив задом наоборот.

@Petro29 · 08.04.2020, 15:17 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses Crt;
const N = 4; M = 5;
Var A: array[1..N, 1..M] of Integer;
       i, j, imin, jmin, mi, mj: Integer;
begin ClrScr;
WriteLn(' Исходный массив:');
    for i:= 1 to N do begin
    for j:= 1 to M do begin
      A[il j]:= Random(80) – 5;
         Write(' ', A[I, j]:4);
    end;  WriteLn;  end;
{Блок поиска  min  значений каждого столбца}
WriteLn(' Мин эл-ты столбцов:');
    for j:= 1 to M do begin
         imin:= 1;
    for i:= 2 to N do
if A[imin, j] > A[i, j] then imin:= i;
Write(A[imin, j]:4);
    end; WriteLn;
WriteLn(' Индексы min эл-в;');
WriteLn(' № строки, № столбца:');
WriteLn(' [', imin,','mj,']');
   ReadLn
end.

На выходе имеем:
Исходный массив:

Pascal
1
2
3
4
5
6
 -5    -3    63    11    16
 48    20     7    24    29 
   1    32     0    62     -1
 18    68    24    56    21
Мин эл-ты столбцов:
 -5     -3     0    11    -1

Индексы min эл-в: № строки, № столбца: [3, 5] не получилось.

Можно сделать так, чтобы получилось, т. е. чтобы последняя строка имела такой вид:?

Pascal
1
        [1, 1]  [1, 2]  [3, 3]  [1, 4]  [3, 5]

@ValentinNemo · 08.04.2020, 16:17

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program Project1;
uses
  Crt;
const
  N = 4;
  M = 5;
var
  A: array[1..N, 1..M] of Integer;
  B: array[1..M] of integer;
  i, j, imin, jmin, mi, mj: Integer;
begin
  ClrScr;
  WriteLn(' Исходный массив:');
  for i:= 1 to N do
    begin
      for j:= 1 to M do
        begin
          A[i,j]:= Random(80) - 5;
          Write(' ', A[i,j]:4);
        end;
      WriteLn;
    end;
{Блок поиска  min  значений каждого столбца}
  for j:= 1 to M do
    begin
      imin:= 1;
      for i:= 2 to N do
      if A[imin, j] > A[i, j] then
        imin:= i;
      B[j]:= A[imin,j];
    end;
  WriteLn(' Мин эл-ты столбцов:');
  for j:= 1 to M do
    Write(' ', B[j]:4);
  WriteLn;
  ReadLn;
end.

@Petro29 · 19.04.2020, 18:05 **[ТС]**

На выходе получилось:

Pascal
1
2
3
4
5
6
7
Исходный массив:
 -5    -3    63    11    16
 48    20     7    24    29 
   1    32     0    62     -1
 18    68    24    56    21
Мин эл-ты столбцов:
 -5     -3     0    11    -1

Последние строки - выход в виде
Номера индексов мин эл-в:
[№ строки: № столбца]

Pascal
1
[1, 1]  [1, 2]  [3, 3]  [1, 4]  [3, 5]

-
не получились. А как сделать, чтобы они получились?

@ValentinNemo · 19.04.2020, 21:22

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program Project1;
 
uses
  CRT;
const
  N = 4;
  M = 5;
var
  A: array[1..N, 1..M] of Integer;
  B: array[1..M] of integer;
  i, j, imin, jmin, mi, mj: Integer;
begin
  Randomize;
  ClrScr;
  WriteLn(' Исходный массив:');
  for i:= 1 to N do
    begin
      for j:= 1 to M do
        begin
          A[i,j]:= Random(80) - 5;
          Write(' ', A[i,j]:4);
        end;
      WriteLn;
    end;
{Блок поиска  min  значений каждого столбца}
  for j:= 1 to M do
    begin
      imin:= 1;
      for i:= 2 to N do
      if A[imin, j] > A[i, j] then
        imin:= i;
      B[j]:= imin;
    end;
  WriteLn('Адреса мин эл-тов столбцов:');
  for j:= 1 to M do
    Write('[', B[j],',',j,']  ');
  WriteLn;
  ReadLn;
end.

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .