Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных

@Катюша94 · Регистрация: 03.12.2013

Author24 — интернет-сервис помощи студентам

Дан двумерный массив размером n x m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных.

Буду очень благодарна!

@CodeR · 03.12.2013, 12:53

Pascal

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n,m,k1,k2:byte;
Begin
    write('N,M<=',nmax,': ');readln(n,m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin 
      k1:=0;k2:=0;
      For j:=1 to m do
       if A[i,j]>0 then inc(k1)
        else if A[i,j]<0 then inc(k2);
      if k1>k2 then break;
    End;
    writeln(k1>k2);
    readln;
End.

@Катюша94 · 03.12.2013, 12:56 **[ТС]**

Спасибо огромное!!!!

@Катюша94 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 6
		1
	Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных 03.12.2013, 12:30. Показов 2196. Ответов 2 Метки нет (Все метки) Дан двумерный массив размером n x m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Буду очень благодарна! 0

@Катюша94 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 6
	03.12.2013, 12:56 [ТС]	3
	Спасибо огромное!!!! 0

Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных

Решение