Дано пять чисел. определить максимальное из них.определить функцию, находящую максимум из двух различных чисел. мне нужно сделать эту через процедуру и функцию. я сделал для функции вот так: 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. а училка говорит что здесь массивы вообще не нужны, и то что функция у меня в не используется. вопрос как сделать так чтобы функция использовалась. не могу понять как сделать по другому. !
pampuzik
3
06.07.2019 12:10
1
Другие вопросы по теме Информатика
Гуленко
15.03.2020 04:54
SpecialCat
15.03.2020 04:57
zibrov06
15.03.2020 04:58
ванек1838305958595
12.11.2019 21:43
zxcvbnm210404
12.11.2019 21:47
sanelya2
12.11.2019 21:51
nastyakulikova5
12.11.2019 21:51
bogdanstarunskp06m9y
12.09.2019 04:50
mamrykovaksun
12.09.2019 04:50
Популярные вопросы
- Замени букву е так, что бы новое слово соответствовало звуковой...
3 - Где в предложении подлежащее и сказуемое? выбегай поскорей посмотреть...
3 - Отметьте знаком + ряд слов в котором все слова начинаются с согласного...
2 - Don t judge your importance by the shadow of the morning sun...
2 - Различие размножения амёбы и эвглены...
1 - Примеры сложных предложений с союзом и и запятой...
2 - Какой корень слова комментировать ?...
1 - Нужно подчеркнуть слова: вдаль, громко, домой. как их подчёркивать?...
3 - Если к неизвестному числу прибавить 2/3 то получиться 2 целых...
2 - Если информация достаточно для принятие решения,то она?...
1
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.
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