Ребятки, помогите, пожалуйста.В соревнованиях по плаванию принимают участие N...

Question

Ребятки, помогите, пожалуйста.
В соревнованиях по плаванию принимают участие N спортсменов. Ввести их результаты и определить лучший результат.

Решить через While или For, в паскале.

Comments

берусь)

Answer 1

1) с for 
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
for i:= 1 to N-1 do
begin
readln(res);
if resmax:=res;
end;
writeln(max);
end.
2) с while
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
while i <>N-1 do 
begin
readln(res);
if resmax:=res;
i:=i+1;
end;
writeln(max);
end.

Comments

самая большая проблема :D

---

ну вроде бы да) только вот нельзя ли как нибудь написать чтобы не вводить максимальное значение 999999?

---

ну с чем то сравнивать первое значение надо ведь) можно присвоить ему первое значение и дальше сравнивать, переделать?

---

readln(res);
for i:=1 to n-1
...

---

попробуй)

---

всё))

---

тут напишешь или как?)

---

ответ изменил :ь

---

Спасибо*)

---

агась)