в заданной матрице А(ьбт) замените первый положительный элемени минимальным элементом матрицы. Если положительных элементов нет, то вывидите соответствующий текст.
Lapp
4.02.2009 9:51
Не вполне ясно, что значит "первый элемент" в двумерной матрице.. Тут я прохожусь по строкам.
i0:=0; x:=a[1,1]; for i:=1 to m do for j:=1 to n do begin if (i0=0)and(a[i,j]>0) then begin i0:=i; j0:=j end; if x<a[i,j] then x:=a[i,j] end; if i0>0 then a[i0,j0]:=x else WriteLn('No positive elements');
Вот так примерно..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.