Найдите ошибку. Вместо бОльшего числа, выводит 0. program bolsheyechislo; var a, b, c, d,...

Question

Найдите ошибку. Вместо бОльшего числа, выводит 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.

Answer 1

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

Comments

А почему не работает код, написанный мной? Смысл то тот же.

---

Потому что в коде много ошибок и нелепостей.