Нужно решить графическими и симплекс !
Ответы
Код pascal: var n,m,i,a: integer; begin read(n); m: =0; i: =0; for n: = 1 to n do begin read(a); if a mod 3 = 0 then if n > m then begin i: =m; m: =n; end end; if i = 0 then write('нет') else write(i) end.
на картинке можете посмотреть, как это работает, вначале выводится исходная "матрица" (массив массивов на самом деле), потом одной строкой сколько в каждой "строке" нечетных элементов, затем отсортированная "матрица", и потом, еще раз, сколько нечетных элементов в каждой строке отсортированной "матрицы". во вложенных файлах в первом сортировка встроенным методом pascalabc.net и там убрана процедура oddsinarow (см скриншот). во втором пузырьковая сортировка. заполнение матрицы рандомное единицами и двойками, можете вставить свои значения в a[i] : = arrrandom(n, 1, 2), где n - кол-во "столбцов" (элементов во внутренних массивах).
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выполни сложение: 1100000(2)+111(2) Запиши ответ.
Автор: zaschitin48
Скажите как это разблокировать НУЖНА
Автор: konstantinslivkov
Сколько бит информации содержит сообщение объемом 1 гб?
Автор: Zhamynchiev
Написать программу , которая определяет количество элементов равных 0.
Автор: buslavgroupe