Составьте программу, которая заполняет массив A[1..10] случайными целыми числами в...

Question

Составьте программу, которая заполняет массив A[1..10] случайными целыми числами в диапазоне от 1 до 50 и вычисляет среднее арифметическое элементов с четными значениями элементов массива.

Answer 1

CONST k=10; {k - количество чисел в массиве}
VAR a:array[1..k] of integer;
    i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}
    sr:real; {sr - среднее арифметическое}
BEGIN
  summ:=0; n:=0; {Обнуляем счетчики}
  for i:=1 to k do
    begin
      a[i]:=random(50); {Заполняем массив случайными числами}
      write (a[i],' '); {Выводим массив}
      if a[i] mod 2=0 then
        begin
          summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}
          n:=n+1
        end
    end;
  sr:=summ/n; {Находим среднее арифметическое}
  writeln;
  writeln (sr:0:2) {Выводим среднее арифметическое}
END.