Все задачи с экзамена в формате PAS (Заменить местами в матрице значения главной и побочной диагоналей)

Посмотреть архив целиком

program ex2;

{Заменить местами в матрице значения главной и побочной диагоналей}

const nmax=10;

var i,j,k: integer;

var n: integer; {порядок матрицы}

var m: array[1..nmax,1..nmax] of integer;

begin

writeln('Введите порядок матрицы');

readln(n);

if n>nmax then

writeln('Заданный порядок матрицы больше максимального, равного ',nmax)

else

begin

writeln('Введите исходную матрицу');

for i:=1 to n do

for j:=1 to n do read(m[i,j]);

{Распечатка исходной матрицы}

writeln('Исходная матрица');

for i:=1 to n do

begin

for j:=1 to n do write(m[i,j]:4);

writeln

end;

{Замена местами диагоналей}

for i:=1 to n do

begin

k:=m[i,i]; m[i,i]:=m[i,n+1-i]; m[i,n+1-i]:=k

end;

{Распечатка результирующей матрицы}

writeln('Результирующая матрица');

for i:=1 to n do

begin

for j:=1 to n do write(m[i,j]:4);

writeln

end

end

end.


Случайные файлы

Файл
159803.rtf
58150.rtf
89893.rtf
33668.rtf
23328.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.