Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задана квадратная матрица.
Задана квадратная матрица.
Задана квадратная матрица. Поменять местами строку с максимальным
элементом на главной диагонали со строкой с заданным
номером m.
1 | Автор: enable23 | 2011-04-14, 20:02   |  Репутация: [ + 0 ]
Через часик-полтора будет готово:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-04-14, 20:46   |  Репутация: [ + 211 ]
как то так, могут быть мелкие ошибки, то что писал тут без компиляции:

Code
const N=10;
var a: array[1..N, 1..N] of integer;
i,j,k,temp,rowNum: integer;
begin
readln(rowNum); {ввод нужной строки}
randomize;
for i:=1 to N do
for j:=1 to N do
a[i,j]:=random(100);
k:=a[1,1];
for i:=1 to N do {поиск наибольшего элемента на главной диагонали}
if a[i,i]>=k then
k:=i; {запись строки}
for i:=1 to n do
begin
temp:=a[i,k];
a[i,k]:=a[i,rowNum];
a[i,rowNum]:=temp;
end;
end.


If you can't make it GOOD make it LOOK GOOD. B.Gates
3 | Автор: DoVe | 2011-04-14, 22:13 | Изменено: DoVe - Чт, 2011-04-14, 22:14   |  Репутация: [ + 48 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Задана квадратная матрица.
Страница 1 из 11
Поиск: