Вывести на экран максимальное значение в каждой строке

@Alkapon4ik · Регистрация: 26.05.2012

кто знает как прошу помочь!
Дана квадратная вещественная матрица размерности n. Вывести на экран
максимальное значение в каждой строке. (программирование массивов)

@rangerx · 01.11.2012, 22:15

Pascal

program prog;
 
{$mode fpc}
 
const
  N = 4;
var
  m: Double;
  i, j: Integer;  
  matrix: array[1..N, 1..N] of Double;
 
begin
  //------------
  for i:= 1 to N do begin  
    for j:= 1 to N do begin    
      Write('[', i, ', ', j, ']: ');
      ReadLn(matrix[i, j]);
    end;    
  end;
 
  //------------
  for i:= 1 to N do begin
    m:= matrix[i, 1];
    
    for j:= 2 to N do
      if matrix[i, j] > m then
        m:= matrix[i, j];
 
    for j:= 1 to N do
      Write(matrix[i, j]:0:5, ' ');      
     WriteLn(' -> ', m:0:5);
  end;
end.

@Alkapon4ik 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 3
		1
	Вывести на экран максимальное значение в каждой строке 30.10.2012, 13:06. Просмотров 1298. Ответов 1 Метки нет (Все метки) кто знает как прошу помочь! Дана квадратная вещественная матрица размерности n. Вывести на экран максимальное значение в каждой строке. (программирование массивов) 0

Опции темы

Вывести на экран максимальное значение в каждой строке

Решение