Составить программы с массивами. Паскаль. 1.Дан массив из 12-ти частей. Отыскать

Составить программки с массивами. Паскаль.
1.Дан массив из 12-ти частей. Отыскать его среднее значение, найти, сколько чисел в массиве меньше его среднего значения и вывести их на экран. Интервал(0,50)
2.Из массива из 13 частей вывести на экран все числа, наименьшие 50, и найти, сколько таких чисел в данном массиве. Интервал(0,100)

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(12,0,50); a.Println;
  var m:=a.Average;
  Write('Элементы, меньшие среднего значения: ');
  Writeln('Таких частей ',a.Where(x-gt;xlt;m).Println.Count)
end.

Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, наименьшие среднего значения: 12 5 15 23 22 12
Таких частей 6

begin
  var a:=ArrRandom(13,0,100); a.Println;
  Write('Элементы, наименьшие 50: ');
  Writeln('Таких элементов ',a.Where(x-gt;xlt;50).Println.Count)
end.

Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, наименьшие 50: 25 17 27 37 32 29 12 34
Таких частей 8
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт