Технический форум - Массивы, решение задач

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы, решение задач (http://www.tehnari.ru/f41/t48981/)

Массивы, решение задач

помогите решыть задачу пожалуста!!! дано масив Ф [1..n, 1..m] скласти програму знаходження номеру першого рядка, який має тільки додатні елементи, якщо таких немає то вивести 0. пожалуста, умоляю помогите!!!

Замечание:

Официальный язык форума - русский! Ваш модератор.

Цитата:

Сообщение от таня к (Сообщение 487117)

Ладно, ладно, успокойтесь только - всё хорошо. Вот Вам Ваша программа (если устроит язык Паскаль):

Код:

Const

 N=10;

 M=6;

VAR

 A:Array[1..N,1..M] of Real;

 Num,i,j:Byte;

 b,bi:boolean;



BEGIN

 Randomize;

 For i:=1 to N do

  begin

   For j:=1 to M do

    begin

     A[i,j]:=Random*100-20;

     Write(A[i,j]:8:3);

    end;

   WriteLn;

  end;

 Writeln;

 Writeln;

 Num:=0;

 i:=0;

 b:=false;

 Repeat

  Inc(i);

  j:=0;

  bi:=false;

  Repeat

   Inc(j);

   If A[i,j]<=0 then bi:=true;

  Until bi or (j=M);

  If bi=false then

   begin

    b:=true;

    Num:=i;

   end;

 Until b or (i=N);

 WriteLn('Number of line is ',Num);

 ReadLn;

END.