Var a: array[1..100000] of integer;
n, i, j, max, prmax: integer;
begin
read(n);
for i:=1 to n do read(a[i]);
max:=a[1];
for i:=2 to n do if a[i] >= max then begin write(max, ' '); prmax:=max; max:=a[i] end else
if a[i] > prmax then begin write(a[i], ' '); prmax:=a[i] end else write(prmax, ' ');
<span>end.
Попробовал так написать, думаю, ввод-вывод с файла сам сможешь прикрутить...</span>
<span>Сведения о чем-либо, независимо от формы их представления.</span>
Интернет вреден для глаз но при этом можно узнать много полезной информаций а если сидеть по 15 мин.вдень не чего не встанет можночитать книги проходить тесты и естественно поиграть в логические игры