Код + скриншот (код и вывод компилятора). Строки с #... - комментарии. Если хотите, что бы показывался весь процесс работы программы - уберите только "#". Если не нужно - можете удалить строки с #... (не обязательно):
N = int(input("N = "))
fact_N = 1
for i in range(1,N+1):
fact_N *= i
#print("Factorial N = ",fact_N)
count_dividers = 0
for divider in range(1,fact_N+1):
if (fact_N % divider == 0):
count_dividers += 1
# print(count_dividers,"divider = ",divider)
print("Amount of dividers for '",N,"' - ",count_dividers)
Значения массива выбираются случайным образом.
var
A: array[1..10] of integer;
summa, polozh, i: integer;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(100) - 50;
if A[i] > 0 then
begin
Inc(polozh);
summa := summa + A[i];
end;
end;
writeln('Сумма положительных: ', summa);
writeln('Количество положительных: ', polozh);
write('Все элементы: ');
for i := 1 to 10 do write(A[i], ' ');
end.