Цитата:
Сообщение от Tranzistor
Ребят, помогите пожалуйста с задачей..
Дана матрица 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.