Двумерный массив, Вещественная матрица MxN Опции

[kosiak]

Добрый вечер прошу Вас помочь мне с такой задачей: Дана вещ. матрица размером MxN.Напечатать номер строки которая содержит первый из отрицательных элементов. Вот что у меня получилось но прога не работает.

Program Mas;
 Const n=3;
       m=3;
 Var  mas:array[1..n,1..m] of integer;
      i,j,str:integer;
 Begin
    For i:=1 to n do
    For j:=1 to m do
     Begin
      WriteLn ('vvod mas[',i,'][',j,']');
      ReadLn (mas[i,j]);
     end;
     For i:=1 to n do
     For j:=1 to m do
      If mas[i,j]<0 then 
	 str:=i;
	 Break;
      WriteLn (str);
  End.

И если вас не затруднит помогите еще с такой задачей: Пусть x[1]=y[1]=1; x[2]=y[2]=2; x[i]=y[i-1]-y[i-2]/i^2
Необходимо получить x[1],y[1],....,x[25],y[25].

Сообщение отредактировано: volvo - 7.11.2006 2:28

[klem4]

break'ом ты завершаешь только внутренний цикл, а нужно еще и внешний, сделай например так :

for i := 1 to n do begin
 for j := 1 to m do if a[i,j] <0 then break;
 if a[i,j] < 0 then break;
end;

хы щас заметил, ты и внутренний не завершаешь

Сообщение отредактировано: volvo - 7.11.2006 2:29

[volvo]

Или вот так:

str := 0;

i := 1;
while (i <= n) and (str = 0) do begin
  j := 1; while (j <= m) and (str = 0) do
    if mas[i, j] < 0 then str := i else inc(j);
  inc(i)
end;