Помогите чем можете, хотя бы 1 задачу

Question

Помогите чем можете, хотя бы 1 задачу

---

Answer 1

//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111

Var
 i,max,n,a:integer;
begin
 readln(n);
 max:=-2147483648;
 i:=1;
  while i<>n+1 do
   begin;
    readln(a);
    if (max    i:=i+1;
   end;
 write(max);
end.

Пример ввода:
4
1
2
3
4
Пример вывода:
4

Comments

Мне нужен цикл while

---

мне нужно с циклом while

---

Да, да, уже поправил.

---

 и я учусь в 10 классе, там нету арреев и тд, сделай на самом базовом уровне пожалуйсто

---

Мда, массив там действительно ни к чему. Упростил.

---

Большое спасибо

---

Можете еще задачи решить?

---

Сбросил 10 в личку. На сегодня я закончил.