Предмет: Информатика,
автор: onerfighter200477
Найдите ошибку. Вместо бОльшего числа, выводит 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.
Ответы
Автор ответа:
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
onerfighter2004:
А почему не работает код, написанный мной? Смысл то тот же.
Похожие вопросы
Предмет: Геометрия,
автор: zulipolzulipol
Предмет: Русский язык,
автор: kamillamamedova072
Предмет: Математика,
автор: whye
Предмет: Математика,
автор: олеся519
Предмет: География,
автор: акакій