Помогите чем можете, хотя бы 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
Мне нужен цикл while
мне нужно с циклом while
Да, да, уже поправил.
и я учусь в 10 классе, там нету арреев и тд, сделай на самом базовом уровне пожалуйсто
Мда, массив там действительно ни к чему. Упростил.
Большое спасибо
Можете еще задачи решить?
Сбросил 10 в личку. На сегодня я закончил.