Tiyukgakk 28 ноября 2019 в 05:13
СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел.Найдите сумму индексов элементов,которые больше среднего арифметического. Выведите на экран исходный массив и полученную сумму
СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел.Найдите сумму индексов элементов,которые больше среднего арифметического. Выведите на экран исходный массив и полученную сумму
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.
Компьютеры и вычисления
486
0
Для комментирования необходимо зарегистрироваться на сайте