Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Дан массив из К элементов. Вывести на экран все четные элементы массива в порядке убывания. https://www.cyberforum.ru/ pascalabc/ thread700541.html 1. Дан массив из К целых чисел. Написать программу, подсчитывающую количество пар одинаковых элементов, стоящих рядом. 2. Дан массив из К элементов. Вывести на экран все четные элементы массива в...	Pascal ABC Goto(x,y) ;+graphABC неверно работает Помогите решить, неверно выводит: uses GraphABC,crt; //var begin TextColor(0); HideCursor; LowVideo;
Pascal ABC Заполнить массив из 10 элементов случайными числами и отсортировать первую половину по возрастанию, а вторую – по убыванию Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать первую половину по возрастанию, а вторую – по убыванию. Пример:... https://www.cyberforum.ru/ pascalabc/ thread700492.html	Pascal ABC Заполнить массив из 10 элементов случайными числами и отсортировать его по последней цифре https://www.cyberforum.ru/ pascalabc/ thread700491.html Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 ...
Pascal ABC Заполнить массив случайными числами и отсортировать его по убыванию Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по убыванию. Пример: Исходный массив: 4 5 -8 3 -7 ...	Pascal ABC Одномерные массивы. Найдите сумму, разность, произведение массивов, и произведение второго массива на максимальный элемент первого массива. Создайте с помощью генератора случайных чисел два массива целых чисел в диапазоне (0 .. 30) одинаковой длины. Найдите сумму, разность, произведение этих массивов, и произведение второго массива на... https://www.cyberforum.ru/ pascalabc/ thread700476.html
Pascal ABC Массивы дробей https://www.cyberforum.ru/ pascalabc/ thread700475.html Создать с помощью генератора случайных чисел массив из дробей в диапазоне (-6 .. 6). Ввести с клавиатуры целое число S. Создать новый массив, образованный из первого массива без элемента с номером S....	Найти наибольшее количество нулей в массиве, которые встречаются подряд. Pascal ABC В массиве, который состоит из нулей и единиц, найти наибольшее количество нулей, которые встречаются подряд. Массив вводить с помощью генератора случайных чисел и вывести на экран.
Pascal ABC Заполнение массива по правилу https://www.cyberforum.ru/ pascalabc/ thread700467.html составьте программу заполнения массива a числами 1, 6, 3, 12, 5, 18, 7, 24, 9, 30 закономерность: значения элементов с нечетными индексами равны индексу элемента ,а значения элементов с четными...	Pascal ABC Найти в массиве целых чисел максимальный и минимальный элементы, посчитать, сколько раз они встречаются и на каких позициях. 1. Найти в массиве целых чисел максимальный и минимальный элементы, посчитать, сколько раз они встречаются и на каких позициях. Массив вводится с клавиатуры. Кроме искомых величин, вывести на экран... https://www.cyberforum.ru/ pascalabc/ thread700454.html
Pascal ABC Нужно нарисовать Куб Нужно нарисовать Куб	Pascal ABC Вывести массив из m строк и n столбцов в виде матрицы в «случайно» формируемые координаты окна https://www.cyberforum.ru/ pascalabc/ thread700371.html Помогите решить задачу, буду очень благодарен. Вывести массив из m строк и n столбцов в виде матрицы в «случайно» формируемые координаты окна, размеры и координаты которого заданы пользователем.

franc_gs

5 / 5 / 4

Регистрация: 17.11.2012

Сообщений: 17

18.11.2012, 00:19

Найти число m – среднее арифметическое всех элементов массива - Pascal ABC - Ответ 3714691

18.11.2012, 00:19. Показов 1112. Ответов 2

Метки (Все метки)

Сообщение было отмечено kventi5 как решение

Решение

Pascal

const n=25;
var ar:array[1..n] of integer;
    i,a,s,l:integer;
    m:real;
begin
 for i:=1 to n do
 ar[i]:=random(10)-random(20);
 
 for i:=1 to n do
 write(ar[i],' ');
 writeln;
 writeln('Введите a:');
 readln(a);
 
 for i:=1 to n do
 if ar[i]<a then
 begin
 s:=s+ar[i];
 l:=l+1;
 end;
 m:=s/l;
 
 l:=0;
 
 for i:=1 to n do
 if ar[i]<m then
 l:=l+1;
 
 writeln('Число m=',m:1:2);
 writeln('Kоличество элементов, значения которых меньше m равно ',l);
end.

Вернуться к обсуждению:
Найти число m – среднее арифметическое всех элементов массива Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.11.2012, 00:19

Готовые ответы и решения:

Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a
1) Составить программу, которая заполняет массив случайными целыми числами из диапазона, введенного...

Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a
Здравствуйте. 1) Составить программу, которая заполняет массив случайными целыми числами из...

Найти среднее арифметическое всех элементов массива
Доброго времени суток! Помогите, пожалуйста, решить задачу. Вот условие: 1) Составить программу,...

Найти среднее арифметическое всех элементов массива
ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива 4 15...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.11.2012, 00:19

Помогаю со студенческими работами здесь

Найти среднее арифметическое всех элементов массива
ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива

Найти среднее арифметическое всех элементов массива
№1. Дан массив размера N и целые числа K и L (1 < K <= L <= N). Найти среднее арифметическое всех...

Найти среднее арифметическое всех положительных элементов массива
Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы...

Найти среднее арифметическое всех положительных элементов массива
Дан целочисленный массив из 40 элементов , все элементы которого - целые числа в интервале от -500...

Наверх