Технический форум

Цитата:

Сообщение от Tranzistor (Сообщение 270096)

Ребят, помогите пожалуйста с задачей..
Дана матрица 4x4. Найти её максимальное значение.
Язык Turbo Pascal

Уф, ну достали с этими максимальными значениями! Ладно... Если под "максимальным значением матрицы" понимается нахождение максимального по величине элемента, то как-то так:

Код:

VAR

 A:ARRAY[1..4,1..4] of INTEGER;

 i,j,Ifix,Jfix,Max:INTEGER;

BEGIN

 {Ввод значений массива организуйте самостоятельно}

 Max:=A[1,1];

 FOR i:=1 TO 4 DO

  FOR j:=1 TO 4 DO

   IF A[i,j]>Max THEN

    BEGIN

     Max:=A[i,j];

     Ifix:=i;

     Jfix:=j;

    END;

 WriteLn('Maximum is A[',Ifix,',',Jfix,']= ',Max);

 ReadLn;

END.