Найдите ошибку. Заместо бОльшего числа, выводит 0.program bolsheyechislo; var a, b,
Найдите ошибку. Заместо бОльшего числа, выводит 0.
program bolsheyechislo;
var a, b, c, d, e, max, max1, max2 : integer;
function MaxChislo: integer;
begin
if max1 gt; 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.
program bolsheyechislo;
var a, b, c, d, e, max : integer;
function MaxChislo(x,y: integer): integer;
begin
if x gt; 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
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.