Помощь - Поиск - Пользователи - Календарь
Полная версия: матрица
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
BAEVIK
в заданной матрице А(ьбт) замените первый положительный элемени минимальным элементом матрицы. Если положительных элементов нет, то вывидите соответствующий текст. unsure.gif
Lapp
Не вполне ясно, что значит "первый элемент" в двумерной матрице..
Тут я прохожусь по строкам.
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');

Вот так примерно..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.