Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти...

Question

Дан массив целых чисел , необходимо найти среднее арифметическое значение и найти элементы равные 5

Answer 1

//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

Answer 2

// 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