В массиве R (5x5) поменяйте местами первую и последнюю строки.
В массиве R (5x5) поменяйте местами первую и последнюю строки.
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;
Begin
N:=5;
Writeln('Введите элементы матрицы');
for i:=1 to N do
for j:=1 to N do
readln(mas[i,j]);
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;
{Объмен}
for j:=1 to N do
Begin
buf:=mas[N,j];
mas[N,j]:=mas[1,j];
mas[1,j]:=buf
end;
Writeln();
Writeln('Результирующая матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;
readln;
end.
Не нашли ответ?
Похожие вопросы