NOOBAS N NOOBAS Регистрация 13 Янв 2013 Сообщения 85 Репутация 0 Спасибо 0 Монет 0 15 Окт 2019 #1 Var kol,i,max:integer; A:array[1..1000] of integer; Begin write('Количество чисел: '); readln(kol); for i:= 1 to kol do begin readln(A); if A>A[i+1] then max:= A; end; writeln('Максимальное число: ',max); End.
Var kol,i,max:integer; A:array[1..1000] of integer; Begin write('Количество чисел: '); readln(kol); for i:= 1 to kol do begin readln(A); if A>A[i+1] then max:= A; end; writeln('Максимальное число: ',max); End.
x3m X x3m Регистрация 19 Май 2013 Сообщения 97 Репутация 0 Спасибо 0 Монет 0 16 Окт 2019 #2 readln (A[1]); перед циклом. Цикл с 2 и A[i-1]; Позитивный голос 0