Работа 3.7 Упр.19 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 19. Дана квадратная матрица A[N, N], Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-7/19 98

Подробный ответ

Нужно пройти по всем элементам квадратной матрицы и заменить:

отрицательные элементы на $$0$$;
положительные элементы на $$1$$.

После этого матрицу выводят построчно в обычном виде. В приведённом решении элементы исходной матрицы сначала заполняются случайными числами, затем выполняется замена по условию.

var A: array[1..20, 1..20] of integer;
m, n, k, i, j: integer;
begin
  randomize;
  repeat
    write(‘Введите число столбцов и строк через пробел: ‘);
    readln(n, m);
  until (n in [1..20]) and (m in [1..20]);
  for i := 1 to m do begin
    for j := 1 to n do begin
      A[i, j] := random(19) — 9;
      write(A[i, j]:5);
    end;
    if odd(i) then writeln(‘ ‘) else writeln;
  end;
  writeln;
  writeln(‘Заменяем отрицательные числа на нули, положительные — на единицы:’);
  writeln;
  for i := 1 to m do begin
    for j := 1 to n do begin
      if A[i, j] <= 0 then A[i, j] := 0
      else A[i, j] := 1;
      write(A[i, j]:5);
    end;
    if odd(i) then writeln(‘ ‘) else writeln;
  end;
end.