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

@Danil_322 · Регистрация: 22.12.2016

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

Дана матрица L(7,3), состоящая из произвольных чисел. Найти количество положительных и количество отрицательных элементов в этом массиве. Вывести сообщение, каких элементов больше положительных или отрицательных.

@ZX Spectrum-128 · 22.12.2016, 18:51

Взято отсюда:
Найти количество положительных чисел и количество отрицательных чисел в исходном наборе

Pascal

var
  j, i, kol, otr, pol: byte;
  a: array [1..7, 1..3] of integer;
 
begin
  for i := 1 to 7 do
  begin
    for j := 1 to 3 do
    begin
      a[i, j] := random(7) - 3;
      write(a[i, j]:4);
      if (a[i, j] < 0) then inc(otr);
      if (a[i, j] > 0) then inc(pol);
    end;
    writeln;
  end;
  writeln('Отрицательных чисел = ', otr);
  writeln('Положительных чисел = ', pol);
end.

@Danil_322 0 / 0 / 0 Регистрация: 22.12.2016 Сообщений: 3
		1
	Найти количество положительных и количество отрицательных элементов матрицы 22.12.2016, 17:54. Показов 4930. Ответов 1 Метки нет (Все метки) Дана матрица L(7,3), состоящая из произвольных чисел. Найти количество положительных и количество отрицательных элементов в этом массиве. Вывести сообщение, каких элементов больше положительных или отрицательных. 0

	22.12.2016, 18:51

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

Решение