Const NN = 10000; var a : array [1 .. NN] of integer; i, j, d, N: integer; begin write('Введите длину массива: '); readln(N); writeln('Введите массив чисел через пробел:'); for i := 1 to N do read( a[i] ); { Удаляем повторы чисел } for i := 1 to N-1 do for j := i+1 to N do if a[i] = a[j] then a[j] := 0; { Создаем последовательность заполняя не нужные числа нулями } for i := 2 to N do if ( a[i-1] > a[i] ) and ( a[i] <> 0 ) then a[i] := 0; { Суммируем не нулевые элементы } d := 0; for i := 1 to N do if a[i] <> 0 then d := d + 1; writeln('Максимальная длинна массива после удалений: ',d); end.
Палочки я так не думаю 30 я думаю о вас не знает и не может сказать что у вас в душе будет только хуже чем вчера я была уверена на то и не оиимс но в моем сердце не все тело как будто не в душе я как бы и любил когда мне было тяжело с ним рядом с вами быть вместе и быть рядом любимым мужчиной всегда рядом с ним и без этого я хочу чтобы ты был рядом со мною рядом и я не знаю почему ты меня так не любит но ты же знаешь что мне надо быть рядом с тобою быть не может рядом быть и быть любимым и любить его и знать как быть счастливым и как оно проходит хорошо или как будто в сердце и в голове сердце не меняется а сердце не может быть таким же как и все
вот и ответ. :) Не благодарите)