Найдите ошибку. вместо большего числа, выводит 0. program bolsheyechislo; var a, b, c, d, e, max, max1, max2 : integer; function maxchislo: integer; begin if max1 > max2 then max : = max1 else max : = max2; end; begin writeln('введите 5 чисел: '); readln(a, b, c, d, e); max1 : = a; max2 : = b; max : = maxchislo; max1 : = c; max2 : = max; max : = maxchislo; max1 : = d; max2 : = max; max : = maxchislo; max1 : = e; max2 : = max; max : = maxchislo; writeln('самое большое число: ', max ); end.

marsidd marsidd    1   13.03.2019 20:39    0

Ответы
AgentRuba AgentRuba  25.05.2020 05:52

program bolsheyechislo;

var a, b, c, d, e, max : integer;

function MaxChislo(x,y: integer): integer;

begin

if x > y

then MaxChislo := x

else MaxChislo := y;

end;

begin

writeln('Введите 5 чисел:');

readln(a, b, c, d, e);

max := MaxChislo(MaxChislo(MaxChislo(a,b),MaxChislo(c,d)),e);

writeln('Самое большое число: ', max );

end.

Пример:

Введите 5 чисел:

12 45 38 79 50

Самое большое число: 79

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика