Ввести одномерный массив Т[20] с клавиатуры, вывести на экран в строку. Отдельно вывести элементы массива большее среднего арифметического.
10-11 класс
|
Определить их колличество
const
n = 20;
var
T: array[1..n] of integer;
mean: real;
i, k: integer;
begin
writeln('Введите ', n, ' элементов массива');
for i := 1 to n do
begin
read(T[i]);
mean := mean + T[i]
end;
mean := mean / n;
k := 0;
writeln(#13#10, 'Введено: ');
for i := 1 to n do write(T[i]:5);
writeln(#13#10, 'Элементы массива, превышаюшие среднее арифметическое ',
mean:0:2);
for i := 1 to n do
if T[i] > mean then
begin
write(T[i]:5);
k := k + 1
end;
writeln(#13#10, 'Найдено элементов, превышаюших среднее арифметическое: ', k)
end.
Тестовое решение:
Введите 20 элементов массива
5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21
Введено:
5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21
Элементы массива, превышаюшие среднее арифметическое 14.85
17 28 45 34 18 42 18 36 24 45 21
Найдено элементов, превышаюших среднее арифметическое: 11
Другие вопросы из категории
а) (11111012 + AF16)/368;
б) 1258 + 111012*A216 - 14178;
Читайте также
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Пожалуйста, помогите написать программу в Паскале.