Проверить, что число отрицательных элементов матрицы не меньше числа положительных её элементов

@Данйл · Регистрация: 19.12.2016

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

дана вещественная матрица А(n*m). Логической переменной log присвоить значение True,если число отрицательных элементов матрицы не меньше числа положительных её элементов. В противном случае переменной log присвоить значение False.

@Cyborg Drone · 19.12.2016, 23:33

Pascal

const n = 5;
      m = 4;
var a: array[1..n, 1..m] of real;
    i, j, qp, qn: integer;
    log: boolean;
begin
  randomize;
  qp := 0;
  qn := 0;
  writeln('Матрица:');
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
          a[i, j] := 198 * random - 99;
          write(a[i, j]:8:3);
          if a[i, j] > 0
            then inc(qp)
            else if a[i, j] < 0
              then inc(qn)
        end;
      writeln
    end;
  log := qn >= qp;
  write('log = ', log);
  readln
end.

@Данйл 0 / 0 / 0 Регистрация: 19.12.2016 Сообщений: 12
		1
	Проверить, что число отрицательных элементов матрицы не меньше числа положительных её элементов 19.12.2016, 18:31. Показов 1285. Ответов 1 Метки нет (Все метки) дана вещественная матрица А(n*m). Логической переменной log присвоить значение True,если число отрицательных элементов матрицы не меньше числа положительных её элементов. В противном случае переменной log присвоить значение False. 0

	19.12.2016, 23:33

Опции темы

Проверить, что число отрицательных элементов матрицы не меньше числа положительных её элементов

Решение