Question

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

 Нужно написать программу,которая выбирает максимальное значение из 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.

Answer 1

for i:=1 to 5 do
read(x);
if max<x then max:=i
end;
writeln(max);

Answer 2

i x max peremenki

Answer 3

если честно,то эти команды впервые вижу:с

Answer 4

это через цикл

Answer 5

чтобы не вводить 5 переменных и не много условий было

Answer 6

мне бы просто с ветвлениями