помогите решить задачу на паскале. матрицы
Добавлено: 26 янв 2009, 22:57
В даной квадратной йелочисленной матрице порядка 17 указать индэксы всех элементов с найбольшим значением
Код: Выделить всё
//сначала ищется максимум
Max:=A[1,1];
for i:=1 to 17 do for j:=1 to 17 do if A[i,j]>Max then Max:=A[i,j];
//потом индексы всех таких элементов
writeln("Значение ",Max," находится в позиции(ях):");
for i:=1 to 17 do for j:=1 to 17 do if A[i,j]=Max then writeln(i,",",j);