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>
А) Тема письма, сам текст письма (тело), получатель (кому) и отправитель (от кого)
Б) Телеконференция позволяет обмениваться звуковой и видео информацией, а электронная почта - только графической и текстовой.
В) Файлы
===== PascalABC.NET =====
begin
var n: int64;
Print('Введите натуральное число:');
Read(n);
var a := ArrFill(10, False);
while n > 0 do
begin
a[n mod 10] := True;
n := n div 10
end;
Print('В числе отсутствуют цифры');
for var i := 0 to 9 do
if not a[i] then
Print(i);
end.