Обменяйте местами элементы строк матрицы - Turbo Pascal

  1. 2. Заполните случайным образом двумерный массив размерности n × n. Обменяйте местами элементы следующих строк: 1)1-я строка - n-ная строка 2)2-я строка – (n-1) -ая строка 3)3-я строка- (n-2)- ая строка


textual

Код:

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n div 2 do
for j:=1 to n 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
  write(a[i,j]:3);
  writeln;
 end;
readln
end.


Похожие ответы
  1. Вводится какое-то число n, к примеру, 2473, а программа должна поменять порядок следования цифр таким образом, чтобы получилось максимальное возможное из этих цифр число(в данном случае - 7432). Количество цифр в числе n должно находится автоматически или вводится с клавиатуры.

  1. Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы.

  1. Массивы. Можно более подробно? Дан вектор A(2n). Если сумма S1=a1+a2+...+an равна сумме S2=an+1+ an+2+...+ a2n, то поменять местами первый и последний элементы вектора.

  1. составить процедуру ,меняющую местами столбцы с номерами n1 и n2 в матрице размерностью 6*5

  1. В квадратной матрице размером 5х5 узнать максимальный и минимальный элемент главной диагонали. Поменять их местами . получить после этого матрицу !! Решите пожалуйста

  1. Помогите,пожалуйста составить программу: В произвольных матрицах x и y размера 5х4 определить максимальные элементы и поменять их значения местами.Но так чтобы вывелись 2 матрицы,где мы их поменяли местами

  1. Задача: В одномерном целочисленном массиве поменяйте местами последний наименьший и первый наибольший элементы. Выведите исходный и изменённый массив, а также индексы элементов, которые менялись местами (исходный массив должен формироваться с помощью ввода их с клавиатуры). Т.е., если ввожу массив: 22 29 8 3 4 22 15 6 3 29 должно получиться так: 22 3 8 3 4 22 15 6 29 29 2-ой и 9-ый элементы меняются местами. Пишу такую программу:

  1. Дан квадратный массив. Поменяйте местами элементы, стоящие на главной и побочной диагонали, при этом каждый элемент должен остаться в том же столбце (то есть в каждом столбце нужно поменять местами элемент на главной диагонали и на побочной диагонали). Решение оформите в виде функции SwapDiagonals (A). Примеры входные данные 3 1 2 3 4 5 6 7 8 9 выходные данные 7 2 9 4 5 6 1 8 3

  1. Доброго времени суток. Прошу о помощи)) Выполнить над квадратной матрицей А порядка n последовательность действий, указанную в задании. а) В матрице А поменять местами две строки с заданными номерами; б) сформировать из элементов полученной в результате предыдущего преобразования матрицы, которые лежат на главной диагонали и под ней, нижнюю треугольную матрицу С; в) вычислить сумму положительных элементов, расположенных под главной диагональю С.

  1. В одномерном массиве поменять местами максимальный (MAX) и минимальный (MIN) элементы. Вывести на печать исходный и полученный массивы.