Составить программы с массивами. Паскаль. 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
// Внимание! Если программа не работает, обновите версию!
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Облако тегов