Вычислить отношение числа положительных элементов к числу отрицательных элементов

@Olka! · Регистрация: 15.12.2010

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

Вычислить отношение числа положительных элементов к числу отрицательных элементов заданной матрицы.

@KaiTheCat · 04.04.2011, 16:49

Pascal

var
  a: array[1..100,1..100] of integer;
  i,j,n,m,p,o: integer;
  z: real;
 
begin
  randomize
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=round(random(40)-20);
          write(a[i,j],' ');
        end;
      writeln;
    end;
  writeln;
 
  p:=0;
  o:=0;
  for i:=1 to n do
  for j:=1 to m do
    begin
      if a[i,j]>0 then inc(p);
      if a[i,j]<0 then inc(o);
    end;
  z:=p/o;
  writeln(z:0:1);
  readln;
end.

@Olka! 72 / 3 / 0 Регистрация: 15.12.2010 Сообщений: 136
		1
	Вычислить отношение числа положительных элементов к числу отрицательных элементов 04.04.2011, 16:15. Показов 1092. Ответов 1 Метки нет (Все метки) Вычислить отношение числа положительных элементов к числу отрицательных элементов заданной матрицы. 0

Опции темы

Вычислить отношение числа положительных элементов к числу отрицательных элементов

Решение