• Нужно написать программу на Паскале: В матрице размера M×N положительные элементы заменить единицей. Создание и вывод матриц оформить в виде процедур.

Ответы 6

  • сделала как написали, набрала вручную,теперь ошибка на 10ой...
  • версия 3.2 сборка 1361 (1)
  • 1361 (13.12.2016)
  • А указана какая версия? И что ниже написано во второй строке? ОБНОВИТЬ!
    • Автор:

      melody91
    • 6 лет назад
    • 0
  • Вам лень было прочитать первые две строки ответа и Вы уже четверть часа ищете несуществующие ошибки.
    • Автор:

      greta84
    • 6 лет назад
    • 0
  • PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018Внимание! Если программа не работает, обновите версию!procedure MatrixCreate(m,n:integer; var A:array[,] of integer);begin  A:=MatrRandom(m,n,-50,50);end;procedure MatrixOutput(A:array[,] of integer);begin  A.Println(4)end;begin  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');  var a:array[,] of integer;  MatrixCreate(m,n,a);  Writeln('*** Исходная матрица ***');  MatrixOutput(a);  a.Transform(t->t>0?1:t);  Writeln('*** Полученная матрица ***');  MatrixOutput(a);end.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years