Содержание

Найти индекс строки и столбца максимального элемента матрицы А. Поменять местами эту строку и этот столбец с первыми так, чтобы элемент А1,1 был максимальным элементом матрицы.

Размер матрицы ввести с клавиатуры.

Выдержка из текста

i,j,n,m : integer;

max:integer;

tmp,maxIni,maxInj:integer;

mc:array[1..10] of array[1..10] of integer;{Массив чисел}

begin

ClrScr;

Randomize;

Write (‘Введите число строк n (n

Список использованной литературы

1. Саймон Д Информатика. НТ Пресс, 2009-512 с.

2. Соколенко А.Л. Просто как дважды два. ЭКСМО, 2007.- 256 с.

3. Алекс Экслер. Программирование на Pascal: Пособие. НТ — Пресс, 2008.- 128 с.

4. Марина Свиридова. Особенности языка Pascal: Пособие. Академия, 2007 144c.

5. Серогородский В.В. Pascal Самоучитель. Наука и техника, 2007.- 392 с.

Похожие записи