Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.
Мы ищем динамикой наибольшую подпоследовательность для отрезка [0; i] где гарантировано должен быть i-ый элемент. Потом выбираем из всех наибольшее число.
Program NekitZor;
const
n=16;//1-Именованная переменная количество елементов
var
a:array[1..n] of integer;
k:integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(20);//2-Массив чисел, задал рандомно не больше 20
for i:=1 to n do write(a[i],' ');//3-Вывел массив в строку
for i:=1 to n do
if a[i]<11 then k:=k+1;//4-Подсчитал количество елементов меньше 11<span>
</span>writeln();
writeln();
writeln('Количество елементов меньше 11 = ',k);
end.
1)
DIM A(9)
RANDOMIZE TIMER
FOR i = 1 TO 9 STEP 3
A(i) = i
A(i + 1) = INT(41 * RND) + 10
A(i + 2) = INT(A(i + 1) / A(i))
NEXT i
FOR i = 1 TO 9
PRINT "A("; i; ")="; A(i)
NEXT i
END
2)
DIM A(10)
RANDOMIZE TIMER
PRINT "Иcxoдный мaccив: "
FOR i = 1 TO 10
A(i) = INT(RND * 10) + 1
PRINT A(i),
NEXT i
PRINT
S = 0
FOR i = 1 TO 10
IF A(i) MOD 2 = 0 THEN S = S + A(i)
NEXT i
PRINT "Cyммa чeтныx элeмeнтoв = "; S
<span>END</span>