//объявляем все переменные и константы //константа n, определяющая размер массива const n = 5; //делаем предварительное описание тип для массива type arr = array[1..n] of integer; //целочисленный тип для примера. Можно использовать и вещественный, если потребуется //и объявляем остальные переменные (включая сам массив) var a: arr; i, sum: integer; //i - переменная цикла, sum - сумма элементов average: double; //тип может быть любым вещественным begin //вводим элементы writeln('введите элементы массива'); for i:=1 to n do readln(a[i]); //инициализируем переменную sum sum := 0; //далее собственно вычисление for i:=1 to m do begin if (i mod 2) = 0 then //проверка на чётность номера элемента sum := sum + a[i]; //находим сумму элементов для вычисления среднего арифметического end; // и последний шаг - находим среднее арифметическое. Не забываем, что количество чётных элементов только в 2 раза меньше количества. Поэтому используем div 2, то бишь делим без остатка на 2. Полученное число и будет количеством чётных элементов в нашем массиве. average := sum / (n div 2); writeln('среднее арифметическое чётных элементов равно'); writeln(average); end.
procedure oddDec(var a,b:integer); //подпрограмме переданы аргументы a и b //процедура для вычитания в нечётном элементе begin; a:=a-b; end;
procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b //процедура для сложения в чётном элементе begin; a:=a+b; end;
begin randomize; readln(a); //ввод a readln(b); //ввод b writeln('Array:'); for i:=1 to 10 do //весь массив begin; ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно write(ar[i]:4); //вывод if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a); {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода} end; writeln; writeln('Final array:'); //вывод получившегося массива for i:=1 to 10 do write(ar[i]:4); end.
Пример ввода: 20 10 Пример вывода: Array: 10 16 0 60 23 4 22 -20 4 55 Final array: 0 36 -10 80 13 24 12 0 -6 75
//константа n, определяющая размер массива
const n = 5;
//делаем предварительное описание тип для массива
type arr = array[1..n] of integer; //целочисленный тип для примера. Можно использовать и вещественный, если потребуется
//и объявляем остальные переменные (включая сам массив)
var
a: arr;
i, sum: integer; //i - переменная цикла, sum - сумма элементов
average: double; //тип может быть любым вещественным
begin
//вводим элементы
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
//инициализируем переменную sum
sum := 0;
//далее собственно вычисление
for i:=1 to m do
begin
if (i mod 2) = 0 then //проверка на чётность номера элемента
sum := sum + a[i]; //находим сумму элементов для вычисления среднего арифметического
end;
// и последний шаг - находим среднее арифметическое. Не забываем, что количество чётных элементов только в 2 раза меньше количества. Поэтому используем div 2, то бишь делим без остатка на 2. Полученное число и будет количеством чётных элементов в нашем массиве.
average := sum / (n div 2);
writeln('среднее арифметическое чётных элементов равно');
writeln(average);
end.