Ответ(ы) на вопрос:
Гость//Вариант 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
Не нашли ответ?
Похожие вопросы