В пятницу задали вот такую задачку В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент. Получить квадратную матрицу порядка n — 1 путем отбрасывания в исходной матрице строки и столбца, на пересечении которых расположен элемент с найденным значением. Есть начало программы но как удалить строку и столбец я не знаю.
var a:array[1..100,1..100] of integer; b:array[1..100,1..100] of integer; i,j,imax,jmax,max,n:integer; begin write('Razmernost= '); readln(n); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(256); write(a[i,j]:4); end; writeln; end; max:=a[1,1]; for i:=1 to n do begin for j:=1 to n do begin if abs(a[i,j])>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; end; end; writeln(max); readln; end.
volvo
13.11.2006 2:47
Как пользоваться поиском, знаешь? Я решал эту задачу, причем слово в слово... Ищи...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.