Нужна , всё переставить местами первую и последнюю строки в матрице.

203

336

Посмотреть ответы 2

Ответы на вопрос:

sufyanova99

Информатика

4,7(6 оценок)

Const m=6; n=8; var a: array[1..m,1..n] of integer; i,j,r: integer; begin randomize; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i,j]: =random(100); write(a[i,j]: 3) end; writeln end; for j: =1 to n do begin r: =a[1,j]; a[1,j]: =a[m,j]; a[m,j]: =r end; writeln('результирующий массив'); for i : = 1 to m do begin for j : = 1 to n do write(a[i,j]: 3); writeln end end. тестовое решение: исходный массив 6 93 10 3 80 4 47 71 33 33 75 85 93 22 53 16 83 30 39 95 35 53 30 83 29 43 83 54 88 83 49 67 24 67 47 97 82 40 67 35 42 26 67 23 28 8 8 45 результирующий массив 42 26 67 23 28 8 8 45 33 33 75 85 93 22 53 16 83 30 39 95 35 53 30 83 29 43 83 54 88 83 49 67 24 67 47 97 82 40 67 35 6 93 10 3 80 4 47 71