сгенерировать массив целых чисел из 15 элементов. Числа лежат на интервале от 0 до 100. Есть ли в этом получившемя массиве числе 25.Найти максимальное из

вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.

Определение факториала:

0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.

Другими словами n!- это произведение n натуральных чисел.

какое количество информации несет в себе слова "процессор" если для кординирования каждого символа алфавита используется одно и тоже минимальное возможное число бит

2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.

типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!

программы:
For i:=1 to 100 do
For j:=1 to 18 do
If a [j-1] > a [j+1] then
Begin
T := a [j-1]; a [j-1] := a [j+1]; a [j+1] := t
End;
Чему станет равен элемент массива с номером 4, если в начале работы фрагмента в массиве находились числа от 20 до 1 в порядке убывания?