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

Question

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

Comments

а если среди них не будет отрицательных?

---

должен быть

---

ну я зделал в обшем случае

Answer 1

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