Даны 3 двумерных массива a, b, c разной длины. разработать процедуру ввода массивов и вычисления максимальных значений каждого из массивов. полученные максимумы передать в программу, в которой найти максимум среди 3-х максимальных значений. результаты выдать на экран. нужен паскаль

118

194

Посмотреть ответы 3

Ответы на вопрос:

lyba228337ggg

Информатика

4,6(20 оценок)

Type mass = array[1..50,1..50] of integer; procedure abc(var a: mass; var max: integer); var i,j: integer; begin write('m = '); readln(i); write('n = '); readln(j); for i: = 1 to i do begin for j: = 1 to j do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln; end; {поиск максимума} max: =a[1,1]; for i: = 1 to i do for j: = 1 to j do if a[i,j]> max then max: =a[i,j]; end; var a,b,c: mass; maxmax,max: integer; begin randomize; writeln('массив a(m,n): '); abc(a,max); writeln('max(a) = ',max); maxmax: =max; writeln; writeln('массив b(m,n): '); abc(b,max); writeln('max(b) = ',max); if maxmax< max then maxmax: =max; writeln; writeln('массив c(m,n): '); abc(c,max); writeln('max(c) = ',max); if maxmax< max then maxmax: =max; writeln; writeln('max(max(a),max(b),max(c)) = ',maxmax); end.

olinka6

Информатика

4,5(50 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! procedure maxmas(s: string; var max: integer); begin writeln('*** массив ',s,' ***'); var m: =readlninteger('количество строк: '); var n: =readlninteger('количество столбцов: '); writeln('вводите: '); var a: =readmatrinteger(m,n); max: =a.elementsbyrow.maxend; begin var ma,mb,mc: integer; maxmas('a',ma); maxmas('b',mb); maxmas('c',mc); writeln('максимальный элемент равен ',max(ma,max(mb,end. пример *** массив a *** количество строк: 2 количество столбцов: 2 вводите: 3 6 -2 11 *** массив b *** количество строк: 3 2 количество столбцов: 2 вводите: -5 0 7 9 12 6 *** массив c *** количество строк: 2 количество столбцов: 4 вводите: -11 8 9 5 11 14 8 -6 максимальный элемент равен 14

Лия0211

Информатика

4,8(87 оценок)

Для случайных чисел: var a: array[1..5] of integer; i: integer; begin randomize; for i: =1 to 5 do a[i] : = random(100); for i: =1 to 5 do write(a[i], ' '); writeln; for i: =1 to 5 do a[i] : = a[i] * i; for i: =1 to 5 do write(a[i], ' '); end. для ручного заполнения: var a: array[1..5] of integer; i: integer; begin for i: =1 to 5 do readln(a[i]); for i: =1 to 5 do write(a[i], ' '); writeln; for i: =1 to 5 do a[i] : = a[i] * i; for i: =1 to 5 do write(a[i], ' '); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.