Няша200411
17.02.2022 06:45

Дан массив из n элементов. найти среднее арифметическое четных элементов программа pascal abc, с обьеснением

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bellanik2p06zxf
25.08.2020 16:59
//объявляем все переменные и константы
//константа 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота