• Помогите пожалуйста паскальABC
    Дана матрица А(4,8) вывести все положительные элементы этой матрицы. Найдите максимальный по модулю элемент

Ответы 4

  • Там надо добавить описания i,j и вставить пробел на выводе элементов. И заработает. Но некорректно (см. выше).
    • Автор:

      kathryn57
    • 5 лет назад
    • 0
  • Какая ошибка выходит?
  • if abs (a[i, j]) > max then max:=abs(a[i, j]);
  • // PascalABC.NET 3.2, сборка 1374 от 10.01.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln('*** Исходная матрица ***');  var a:=MatrRandom(4,8,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  var sa:=a.Rows.SelectMany(x->x);  Writeln('Положительные элементы:');  sa.Where(x->x>0).Println;  Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x)));end.Пример*** Исходная матрица ***  80   9  -8  32  37  75  43 -72  71 -79  94 -20 -64 -37 -98  53  19  84 -63  -4  17   5  38 -86 -32  56  87 -43  28 -40 -35  24--------------------------------Положительные элементы:80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24Максимальный по модулю элемент: 98
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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