• Вечер добрый, вопрос такой :
    Дан массив R(N,M).Построить вектор из элементов матрицы, удовлетворяющей условию R(I,J) В PascalABC.NET

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var (n, m) := ReadInteger2('Количество строк и столбцов в массиве:');

     Writeln('*** Исходный массив ***');

     var r := MatrRandom(n, m, -99, 99);

     r.Println(4);

     Writeln(4 * r.ColCount * '-');

     var c := ReadInteger('Введите значение С:');

     var v := r.ElementsByRow.Where(t -> t < c).ToArray;

     Writeln('*** Полученый вектор ***');

     v.Println;

     var i := v.IndexMax;

     Writeln('Максимальный элемент v[', i + 1, ']=', v[i])

    end.

    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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