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

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

Задать свой вопрос
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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт