СРОЧНООООО задайте массив из 10 частей с подмогою датчика случайных

СРОЧНООООО задайте массив из 10 частей с поддержкою датчика случайных чисел.Найдите сумму индексов частей,которые больше среднего арифметического. Выведите на экран исходный массив и полученную сумму

Задать свой вопрос
1 ответ
Var i,q:integer;s:real;a:array[1..10]of integer;beginfor i:=1 to 10 do begina[i]:=random(100);s:=s+a[i];end;s:=s/10;for i:=1 to 10 do beginwriteln(a[i]);if a[i]gt;s then q:=q+i;end;writeln(q);end.
Лариса Горан
и всеее?
Дарья Пационова
ну спасибо
Роман Карашук
очень выручили
Вячеслав Племяник
немножко ошибочно
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт