Вечер благой, вопрос таковой :Дан массив R(N,M).Выстроить вектор из элементов матрицы,

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

Задать свой вопрос
Денис Барбаков
Какое-то у Вас условие странное...
Zhenek Stafashin
R[I,J] B
Pugnina Svetlana
А сама задачка примитивнейшая для этого языка.
Ева
Дан массив R(N,M).Выстроить вектор из частей матрицы, удовлетворяющей условию R(I,J)В PascalABC.NET.
Виталий Полонуер
Вечер благой, вопрос такой :Дан массив R(N,M).Выстроить вектор из элементов матрицы, удовлетворяющей условию R(I,J) меньше C, где С-константа . В полученном векторе отыскать наибольший элемент и его индекс.В PascalABC.NET.
Эвелина Широглазова
Такими командами не проходили, не могли бы вы расписать проще, ибо ничего не понятно
Agata
Я не знаю, что Вы называете "проще" и не знаю, что Вы проходили, а что нет. Если у Вас определенные требования к коду программы, необходимо указывать подмножество языка, с которым вы работаете, либо определенную версию языка, или компилятор, или прикреплять пример решения хоть какой задачки из той, темы, по которой задание.
Долотихина Агата
Предполагаю, раз этот код Для вас непонятен, для Вас "проще" - это будет 25-35 строк кода вместо 13. Непонятная простота.
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 -gt; t lt; c).ToArray;

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

 v.Println;

 var i := v.IndexMax;

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

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт