//объявляем все переменные и константы
//константа n, определяющая размер массива
const n = 5;
//делаем предварительное описание тип для массива
type arr = array[1..n] of integer; //целочисленный тип для примера. Можно использовать и вещественный, если потребуется
//и объявляем остальные переменные (включая сам массив)
var
a: arr;
i, sum: integer; //i - переменная цикла, sum - сумма элементов
average: double; //тип может быть любым вещественным
begin
//вводим элементы
<span> writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);</span>
//инициализируем переменную sum
sum := 0;
//далее собственно вычисление
<span> for i:=1 to m do
begin
if (i mod 2) = 0 then //проверка на чётность номера элемента
sum := sum + a[i]; //находим сумму элементов для вычисления среднего арифметического
end;</span>
// и последний шаг - находим среднее арифметическое. Не забываем, что количество чётных элементов только в 2 раза меньше количества. Поэтому используем div 2, то бишь делим без остатка на 2. Полученное число и будет количеством чётных элементов в нашем массиве.
average := sum / (n div 2);
writeln('среднее арифметическое чётных элементов равно');
writeln(average);
end.
1 байт = 8 бит
8192:8=1024 байта
1 мб = 8388608 бит
4 мб = 8388608*4 = 33554432 бит
12582912 бит = 1.5 мб
Программа для решения задачи:
var x,f:real;
begin
write('x=');readln(x);
if x<=-3 then f:=9 else f:=1/(x*x+1);
writeln('f(x)=',f:5:3);
<span>end.
Пример:
x=-4
f(x)=9.000
Блок-схема - в прилагаемом файле.</span>