Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
p: real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write(p);
end.
Нужно посчитать сколько знаков в числе
Var A:array[1..100] of integer;
i,n,m,k:integer;
Begin
write('Кол-во элементов массива: ');readln(n);
For i:=1 to n do
Begin
write(i,' элемент = ');
readln(A[i]);
End;
writeln('Введённый массив');
For i:=1 to n do
write(A[i]:5);
writeln;
write('Заданное число: ');readln(m);
For i:=1 to n do
if A[i]>m then inc(k);
writeln('Элементов >',m,' = ',k);
readln;
End.
надеюсь правильно, удачи))
Ответ: <span>2) X[k] := 2*k + k mod 2</span>