Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти элементы равные 5
Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти элементы равные 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
Гость//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
r=10;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(1,r);
write(ar[i]:4);
s:=s+ar[i];
end;
writeln;
writeln('5:');
for i:=1 to n do
if ar[i]=5 then write(i:4);
writeln;
writeln('S=',s/n);
end.
Пример работы:
Array:
5 1 2 1 4
5:
1
S=2.6
Не нашли ответ?
Похожие вопросы