Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Матрица

Автор: Trojan 15.1.2007, 19:19

Найти максимальное значение матрицы 4Х4 и определить его квадрат.

Автор: mr.Anderson 15.1.2007, 19:24

Тридцать пять раз обсуждали. Или сто тридцать пять? Держи код.

Код


...
Var
 arr: Array[ 0..3, 0..3 ] of Integer;
 i, j: Integer;
 max: Real;
...
max := 0;
for i:=0 to 3 do
 for j:=0 to 3 do
  if( arr[ i ][ j ] > max ) then
   max := arr[ i ][ j ];

WriteLn( 'Макс. значение: ', max );
Write( 'Квадрат макс. значения: ', Sqr( max ) );

Автор: Trojan 15.1.2007, 21:36

Спасибо!

Автор: InviZible 18.1.2007, 15:25

даа... max := 0;, а кто сказал, что матрица должна быть только из положительных чисел?? max :=a[0,0] в данном случаи

Автор: mr.Anderson 18.1.2007, 16:18

А если не только положительные числа, то тогда сначала надо определить минимальный элемент, а уже потом прыгать и искать максимальный. Потому что a[0,0] может быть, наоборот, максимальным числом. Тогда вообще бред в результате получится.
Так что более правильно будет организовать два цикла. В первом - найти минимум в массиве, а уж во втором - максимум.