Двоешник вася сидя на уроке матиматике, делая вид что он работает, писал в тетрадке паследовательно различные числа, которые ему прихадили в голову. его сасед, естественно отличник петя, посмотрев на пустое время правождение предложил васе прибумать с написаными васей числами. васю это предложение заинтересовало и он после мучительных раздумий придумал все таки . и здесь её изложил. из чисел которые вася написал, нужно выписать только те, которые строго возрастают с первого числа. петя от себя добавил: следует из элементов массива а размером n, сформировать новый массив в, удалив из исходного те элементы, которые мешают образовать возрастающую последовательность. так как составлена двоечником. васей, то и написана она с ошибками. вы на них не обращайте внимания, а решите васи. формат ввода в первой строке записано одно число n (n ⩽ 1000 в следующей строке даны n чисел - элементы массива, каждое число не превосходит по модулю 104. формат вывода необходимо в единственной строку вывести новый массив, в котором элементы образуют возрастающую последовательность.

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var a:=ReadArrInteger(n);
  var p:=a[0]; Print(p);
  for var i:=2 to a.Length-1 do
    if a[i]>p then begin p:=a[i]; Print(p) end;
end.

Пример
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87

Const x0=0; xn=6; h=0.2;
var x,y:real; i,n:integer;
begin
n:=round((xn-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
 begin
 x:=x+h;
 y:=cos(x/3+0.3);
 writeln(x:4:1,y:8:3);
 end;
end.

Результат:
 0.0   0.955
 0.2   0.934
 0.4   0.908
 0.6   0.878
 0.8   0.844
 1.0   0.806
 1.2   0.765
 1.4   0.720
 1.6   0.672
 1.8   0.622
 2.0   0.568
 2.2   0.512
 2.4   0.454
 2.6   0.393
 2.8   0.331
 3.0   0.267
 3.2   0.203
 3.4   0.137
 3.6   0.071
 3.8   0.004
 4.0  -0.062
 4.2  -0.129
 4.4  -0.195
 4.6  -0.260
 4.8  -0.323
 5.0  -0.386
 5.2  -0.446
 5.4  -0.505
 5.6  -0.561
 5.8  -0.615
 6.0  -0.666

program zadagha_1;

var

a: array[1..8] of integer;

i,sum:integer;

begin

writeln('vvedite 8 chisel');

for i:=1 to 8 do read(a[i]);

sum:=0;

for i:=1 to 8 do begin

if i mod 2 <> 0 then begin

sum:=sum+a[i];

writeln(a[i]);

end;

end;

writeln();

writeln('summa elementov c nechetnim N =', sum);

end.

program zadagha_2;

var

b: array[1..1000] of integer;

i,a,n:integer;

begin

writeln('vvedite chislo - kolichestvo elementov massiva');

readln(n);

for i:=1 to n do begin

b[i]:=random(1000);

write(b[i]:6);

end;

writeln();

writeln('vvedite chislo');

readln(a);

write ('elementi > dannogo chisla: ');

for i:=1 to n do begin

if b[i]>a then write (i:4);

end;

end.

program zadacha_3;

var

a: array[1..100] of integer;

i,n,k: integer;

begin

n:=random(100);

for i:=1 to n do begin

a[i]:=random(1000)-500;

write(a[i]:6);

end;

writeln();

writeln('vvedite chislo');

readln(k);

writeln('v massive chisly ',k, ' kratni: ');

for i:=1 to n do begin

if (a[i] mod k = 0) and (a[i]>0)  then begin

write(a[i]:6);

end;

end;

end.