Дано пять чисел. определить максимальное из них.определить функцию, находящую максимум из двух различных чисел. мне нужно сделать эту через процедуру и функцию. я сделал для функции вот так: var a: array[1..5]of integer; i,j,max: integer; function f(a,b: integer): integer; begin if a> b then result: =a else result: =b; end; begin for i: =1 to 5 do begin a[i]: =random(10); end; writeln; max: =a[1]; for i: =1 to 5 do for j: =i+1 to 5 do if f(a[i],a[j])> max then max: =f(a[i],a[j]); writeln('max=',max); end. а училка говорит что здесь массивы вообще не нужны, и то что функция у меня в не используется. вопрос как сделать так чтобы функция использовалась. не могу понять как сделать по другому. !

199

332

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

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

Ameya

Информатика

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

Может так: vara: array[1..5]of integer; a1,a2,a3,a4,a5,max: integer; function f(a,b: integer): integer; begin if a> b then result: =a else result: =b; end; begin a1: =random(10); a2: =random(10); a3: =random(10); a4: =random(10); a5: =random(10); writeln(a1); writeln(a2); writeln(a3); writeln(a4); writeln(a5); writeln; max: =f(a1,a2); max: =f(max,a3); max: =f(max,a4); max: =f(max,a5); writeln('max=',max); end.

Vitaminka123456789

Информатика

4,4(38 оценок)

// pascalabc.net 3.0, cборка 1052 var a: integer; i, j, max: integer; function f(a, b: integer): integer; begin if a > b then result : = a else result : = b end; begin randomize; max: =-1; write('набор чисел: '); for i : = 1 to 5 do begin a: = random(10); write(a,' '); max: =f(max,a) end; writeln(#13#10,'максимальное число равно ',max) end. тестовое решение: набор чисел: 6 8 5 1 2 максимальное число равно 8

крис903

Информатика

4,4(41 оценок)

Число строк в таблице истинности равно= 2^{n} , где n- количество переменных, а раз так, то 2 в степени 1=2 + 1 строчка шапки таблицы=3

ответ: 3

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

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

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

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

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

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

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

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

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

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