Составьте программу которая формирует массив из 20 целых чисел и вычисляет средние арифметическое нечетный чисел

danchik00148 danchik00148    3   15.06.2019 00:40    1

Ответы
myhaylonotochk myhaylonotochk  12.07.2020 11:41
Var mas:array[1..20] of integer;
    i, sum:integer;

begin
     for i:=1 to 20 do
     begin
          mas[i]:=random(99);
         
          write(mas[i], ' ');
     end;
    
     writeln;
    
     i:=1;
     while(i < 20) do
     begin
          sum:=sum+mas[i];
          i:=i+2;
     end;
    
     writeln('Среднее арифметическое нечётных элементов массива ', sum/10);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика