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

Question

Информатика

Нета

26 июля, 23:04

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

+5

Ответы (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.