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

@Милена11 · Регистрация: 23.11.2012

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

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

@zvoronz · 24.11.2012, 00:21

Pascal

{
Дан двумерный массив размером п*m, заполненный случайными числами.
Определить, есть ли в данном массиве строка, содержащая больше
положительных элементов, чем отрицательных.
}
 
const
  N = 5;
  M = 8;
 
var 
  i, j, neg, pos: integer;
  arr : array[0..N-1, 0..M-1] of integer;
  
begin
 
  for i := 0 to N - 1 do
    for j := 0 to M - 1 do    
      arr[i,j] := 2 - random(5);
  
  neg := 0;
  pos := 0;
 
  for i := 0 to N - 1 do
  begin
    for j := 0 to M - 1 do    
    begin
      write (arr[i, j], ' ');            
      if(arr[i,j] < 0) then inc(neg);
      if(arr[i,j] > 0) then inc(pos);
    end;
    if neg < pos then
      write ('Содержит!');   
    neg := 0;
    pos := 0;
    writeln;
  end;
  
end.

@Милена11 0 / 0 / 0 Регистрация: 23.11.2012 Сообщений: 29
		1
	Двумерный массив. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. 24.11.2012, 00:11. Показов 2065. Ответов 1 Метки нет (Все метки) Дан двумерный массив размером п*m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. 0

	24.11.2012, 00:21

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

Решение