Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти элементы равные 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
