Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее арифметическое нечётных чисел.

Question

Информатика

Автоном

4 декабря, 04:37

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее арифметическое нечётных чисел.

+2

Ответы (1)

Знаете ответ?

Мирон · Answer 1

Program Pr1;

uses crt;

var mas:array[1 ... 40] of integer;

i:integer;

v:real;

Begin

clrscr;

v:=0;

randomize;

for i:=1 to 40 do mas[i]:=random (21) ;

for i:=1 to 40 do v:=v+mas[i];

v:=v/40;

writeln (v) ;

end.