УКАЖИТЕ МОЮ ОШИБКУ. или напишите программу,мне чем проще,тем лучше.

Нужно написать программу,которая выбирает максимальное значение из 5 введеных чисел.

Program Xai; uses crt; var a,b,c,d,e,max:real; Begin clrscr; writeln('Введите 5 чисел'); readln(a,b,c,d,e); if a>b then max:=a else max:=b; if c>max then max:=c; if d>c then max:=d; if e>d then e:=max; writeln('Максимальное значение является---> ',max); readln end.

1

Ответы и объяснения

Лучший Ответ!
2014-02-13T16:39:42+00:00
For i:=1 to 5 do
read(x);
if max<x then max:=i
end;
writeln(max);
i x max peremenki
если честно,то эти команды впервые вижу:с
это через цикл
чтобы не вводить 5 переменных и не много условий было
мне бы просто с ветвлениями