|
0 / 0 / 0
Регистрация: 16.12.2013
Сообщений: 10
|
|
Найти минимум из максимума16.12.2013, 18:43. Показов 472. Ответов 0
Метки нет (Все метки)
Program f; Uses CRT; const N=2; M=6; type Tarr_in = array[1..N,1..M] of integer; Tarr_out = array[1..N] of integer; var k:text; A:Tarr_in; B:Tarr_out; max, min, i, j: integer; procedure Sum(arr_in:Tarr_in;var arr_out:Tarr_out); begin max := 0; {ìàêñèìóì ñðåäè ìèíèìóìîâ} for j := 1 to m do begin {ïðîñìîòð ñòîëáöîâ} min := a[1,j]; {ïðåäïîëàãàåì, ÷òî ïåðâûé â ñòîëáöå ìèíèìàëåí} for i := 2 to n do {ïðîñìàòðèâàåì ñòîëáåö ïîñòðî÷íî} if a[i,j] < min then min := a[i,j]; {çàìåíà ìèíèìóìà} if min > max then max := min {çàìåíà ìàêñèìóìà} end; writeln(max); end; begin for i:=1 to N do for j:=1 to M do A[i,j]:=random(201)-100; for i:=1 to N do begin for j:=1 to M do write(A[i,j]:5); writeln; end; Writeln('Ìàêñèìàëüíûå ýëåìåíòû êàæäîãî ñòîëáöà: '); Sum(A,B); assign(k,'vivod.txt'); rewrite(k); writeln('Îäíîìåðíûé ìàññèâ D:'); writeln(k,'Îäíîìåðíûé ìàññèâ D:'); For i:=1 to N do begin write(B[i]:7); write(k,B[i]:7); end; writeln; writeln(k,''); close(k); end.
0
|
|
(| 16.12.2013, 18:43 | |
|
Ответы с готовыми решениями:
0
|
| 16.12.2013, 18:43 | |
|
Помогаю со студенческими работами здесь
1
Двумерные массивы Найти минимум получить новую матрицу деленные на минимум Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение:
В этой книге («Подход, основанный на вариантах использования») Ивар утверждает,
что архитектура программного обеспечения — это
структуры,. . .
|
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога
Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
|
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога
Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip
На первой гифке отладочные линии отключены, а на второй включены:. . .
|
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога
Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем.
. . .
|
|
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
|
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
|
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
|
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога
Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
|