SOS!!!нужна помощь! срочно

Question

Паскаль 
Дан двумерный массив целых чисел. В каждой его строке найти: 
а) первый отрицательный элемент (принять, что отрицательные элементы есть в каждой строке) ;

Денис Зайцев · Accepted Answer

var 
 a: array [1..10, 1..15] of integer; 
 i, j: integer; 
begin 
 randomize; 
 writeln('random array:'); 
 for i := 1 to 10 do begin 
 for j := 1 to 15 do begin 
 a[i, j] := random(101) - 50; 
 write(a[i, j]:4); 
 end; 
 writeln; 
 end; 
 for i := 1 to 10 do begin 
 write('row: ', i); 
 for j := 1 to 15 do 
 if a[i, j] < 0 then begin 
 write('; col: ', j, '; value: ', a[i, j]); 
 break; 
 end; 
 writeln; 
 end; 
end.

Азад Гейдаров · Answer

Пишите на почту или в асю 586178755