Перестановка элементов матрицы

@King_SAM_ · Регистрация: 30.09.2013

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

Задана матрица Б размера 7X7. Составить программу, осуществляющую перестановку элементов в каждой строке матрицы так, чтобы 1-й элемент строки поменялся с последним, 2-й с предпоследним и т.д.

@Puporev · 13.05.2015, 13:45

Pascal

uses crt;
const n=7;
var b:array[1..n,1..n] of integer;
    i,j,t:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(50);
    write(b[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n div 2 do
 begin
  t:=b[i,j];
  b[i,j]:=b[i,n-j+1];
  b[i,n-j+1]:=t;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln;
 end;
readln
end.

@King_SAM_ 0 / 0 / 0 Регистрация: 30.09.2013 Сообщений: 28
		1
	Перестановка элементов матрицы 13.05.2015, 13:24. Показов 1719. Ответов 1 Метки нет (Все метки) Задана матрица Б размера 7X7. Составить программу, осуществляющую перестановку элементов в каждой строке матрицы так, чтобы 1-й элемент строки поменялся с последним, 2-й с предпоследним и т.д. 0

	13.05.2015, 13:45

Перестановка элементов матрицы

Решение