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

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);readlnend.

Answer 1

For i:=1 to 5 do
read(x);
if maxend;
writeln(max);

Comments

i x max peremenki

---

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

---

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

---

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

---

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