Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти
Дан массив целых чисел , необходимо найти среднее арифметическое значение и найтиэлементы равные 5
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,1,10); a.Println;
Writeln('Среднее ',a.Average:0:5);
var s:='';
for var i:=0 to n-1 do
if a[i]=5 then s+=i+1+' ';
if s.Length>0 then Writeln('Номера элементов, равных 5: ',s)
else Writeln('Нет элементов, равных 5')
end.
Тестовое решение:
n= 15
5 3 7 2 10 4 1 5 5 3 8 7 7 3 1
Среднее 4.73333
Номера элементов, равных 5: 1 8 9
Не нашли ответ?
Похожие вопросы