Задана матрица вещественных чисел A размерности n×n

@san9ka3ak · Регистрация: 03.05.2017

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

Задана матрица вещественных чисел A размерности n×n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними ( первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.

Программа должна обрабатывать матрицу, а не строки

@Puporev · 11.05.2017, 14:04

Pascal

uses crt;
var a:array[1..10,1..10] of real;
    n,i,j:integer;
    x:real;
begin
clrscr;
randomize;
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    if(j>i)and(j<n-i+1) then textcolor(12)
    else if (j<i)and(j>n-i+1) then textcolor(10)
    else textcolor(7);
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
for i:=1 to n div 2 do
for j:=i+1 to n-i do
 begin
  x:=a[i,j];
  a[i,j]:=a[n-i+1,j];
  a[n-i+1,j]:=x;
 end;
writeln('Обмен строк');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1) then textcolor(10)
    else if (j<i)and(j>n-i+1) then textcolor(12)
    else textcolor(7);
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
readln
end.

@san9ka3ak -5 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 12
		1
	Задана матрица вещественных чисел A размерности n×n 11.05.2017, 10:35. Показов 1432. Ответов 1 Метки нет (Все метки) Задана матрица вещественных чисел A размерности n×n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними ( первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры. Программа должна обрабатывать матрицу, а не строки 0

	11.05.2017, 14:04

Задана матрица вещественных чисел A размерности n×n

Решение