Вопрос по информатике:

Дан двумерный массив a, размером (n´m). Найти минимальный
элемент в каждой строке матрицы среди отри­цательных элементов.

Ответ:

program gt;var a:array[1..100,1..100]of integer;n,m,i,j,min:integer;beginread(n,m);for i:=1 to n dofor j:=1 to m doread(a[i,j]);for i:=1 to n dobeginmin:=a[i,1];for j:=1 to m dobeginif(a[i,j]<min)then min:=a[i,j];end;if (min<0)then writeln(min)else writeln('отрицательных чисел нет в ',i,' строке');end;end.