Автор
100 слов для студента
Абзац
100 слов для студента
Аудитория
100 слов для студента
100 слов для студента
Белорусский
100 слов для студента
Беседа
100 слов для студента
Беседовать
100 слов для студента
Библиотека
100 слов для студента
Брать
100 слов для студента
Будущий
100 слов для студента
Важный
100 слов для студента
Вариант
100 слов для студента
Ведомость
100 слов для студента
Век
100 слов для студента
Великий
100 слов для студента
Вернуть
100 слов для студента
Вести
100 слов для студента
Взять
100 слов для студента
Внимание
100 слов для студента
Вопрос
100 слов для студента
Время
100 слов для студента
Объяснение:
program mn;
uses crt;
const m=7;n=9;
var mas:array[1..m,1..n] of Integer ;
m1, m2:array[1..n] of Integer ;
i, j, k:Integer;
begin
Randomize;
write('Исходный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
mas[i, j]:=random(100);
write(mas[i, j]:3) end end ;
j:=0;
repeat
for i:=1 to n do begin
m1[i]:=mas[1+j,i];
m2[i]:=mas[m-j,i];
mas[1+j,i]:=m2[i];
mas[m-j,i]:=m1[i]; end;
j:=j+1
until j>m div 2;
writeln;
write('Преобразованный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(mas[i, j] :3) end;
readln;
end.
Объяснение:
В разделе const задаем нужный размер исходного массива.