program LessThanNine;
Var
A, B : Array of Integer;
I, Kolvo : Integer;
begin
randomize;
SetLength(A,11);
SetLength(B,11);
Kolvo := 0;
For I:=0 to 10 do
begin
A[I]:=random(16);
Write(A[I], ' ');
end;
Writeln;
For I:=0 to 10 do
begin
B[I]:=A[I] * 2;
Write(B[I], ' ');
end;
Writeln;
For I:=0 to 10 do
if B[I]<9 then
Kolvo := Kolvo + 1;
Write('Количество элементов меньше 9-ти: ', Kolvo);
end.
Объяснение:
Ну надеюсь не докопаются до того, что тут вывод на экран происходит в том же цикле, что и присваивание значений всем элементам
x = int(input())
z = 2*x**4-3*x**3+4*x**2+6
print(z)