В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом находящимся на побочной диаганали в этом же столбце

@Fear Beast · Регистрация: 17.05.2010

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

Всем привет.
Помогите написать код. Задача следующаяя:
В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом, находящимся на побочной диагонали в этом же столбце. Для n>=4 предусмотреть заплнение массива случайными числами в диапозоне от -10 до 10.

@SuPeR XaKer · 29.01.2011, 22:09

Pascal

Uses
 crt;
Const
 nmax=20;
var
 matr: array [1..nmax,1..nmax] of integer;
 i,j,imax,n,buf: integer;
begin
clrscr;
write('Введите размерность: ');
readln(n);
writeln('Исходная матрица: ');
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    matr[i,j]:=Random(21)-10;
    Write(matr[i,j]:5);
   end;
  writeln;
 end;
for j:=1 to n do
 begin
 imax:=1;
  for i:=1 to n do
   if matr[i,j]>matr[imax,j] then
    imax:=i;
  writeln('MAX[',imax,',',j,']:=',matr[imax,j]);
  buf:=matr[imax,j];
  matr[imax,j]:=matr[n-j+1,j];
  matr[n-j+1,j]:=buf;
 end;
writeln('Результирующая матрица: ');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    Write(matr[i,j]:5);
   end;
  writeln;
 end;
readln
end.

Для n>=4 предусмотреть заплнение массива случайными числами в диапозоне от -10 до 10.

Сделал сразу заполнение.Переделывайте сами.

@Fear Beast 2 / 2 / 0 Регистрация: 17.05.2010 Сообщений: 39
		1
	В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом находящимся на побочной диаганали в этом же столбце 29.01.2011, 21:13. Показов 1643. Ответов 1 Метки нет (Все метки) Всем привет. Помогите написать код. Задача следующаяя: В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом, находящимся на побочной диагонали в этом же столбце. Для n>=4 предусмотреть заплнение массива случайными числами в диапозоне от -10 до 10. 0

Опции темы

В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом находящимся на побочной диаганали в этом же столбце

Решение