Сформировать массив из 15 целых чисел, избранных случайным образом из интервала

Сформировать массив из 15 целых чисел, избранных случайным образом из интервала [-10,30]. Отыскать среднее арифметическое положительных частей.

Задать свой вопрос
1 ответ
1. Решение в современном стиле

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(15,-10,30); a.Println;
  Writeln(a.Where(t-gt;tgt;0).Average)
end.

Пример
9 -6 -9 11 -8 27 -8 -2 4 11 3 24 4 -5 -7
11.625

2. Решение в стиле "Так обычно учат в школах"

const
  n=15;

var
  a:array[1..n] of integer;
  i,s:integer;

begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(41)-10;
    Write(a[i],' ');
    s:=s+a[i]
    end;
  Writeln;
  Writeln(s/n)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт