Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Равна ли сумма двух первых цифр четырехзначного числа сумме двух последних цифр https://www.cyberforum.ru/ pascalabc/ thread561853.html Помогите пожалуйста, очень нужно, заранее благодарю! Операции DIV и MOD 7. Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр. Операторы...	i=au+bu^2+cu^3+du^4+eu^5 помогите составить программу для решания Pascal ABC значения i , a, в , с , d, e известны
Pascal ABC Переделать код под Pascal abc.net https://www.cyberforum.ru/ pascalabc/ thread561745.html КТО НИБУДЬ ПОМОГИТЕ ПЕРЕДЕЛАТЬ КОД ПОД PASCAL ABC.NET. САМ ПЫТАЛСЯ но не могу разобраться как изображение выходило.фон прикрепил к теме. uses crt,graphABC,events; var n,a,i,t,hod: integer; s:...	Pascal ABC Проверить, имеется ли в заданном тексте баланс открывающих и закрывающих круглых скобок Тема «Разработка и отладка алгоритмов и программ по обработке строк символов» Задание: Проверить, имеется ли в заданном тексте баланс открывающих и закрывающих круглых скобок. Пожалуйста сделайте... https://www.cyberforum.ru/ pascalabc/ thread561668.html
Pascal ABC Определить, сколько расчесок получил в подарок совершенно лысый именинник тема циклический оператор PascalABC На день рождения к дедушке пришли 10 бабушек. Каждая бабушка принесла ему в подарок t расчесок. Ввести с клавиатуры 10 значений t. Определить, сколько расчесок...	Pascal ABC Массив. Удаление, вставка, обмен элементов 211. Удалить из массива: а) все отрицательные элементы; б) все элементы, большие данного числа n; в) все элементы, начиная с n^го до n2-й (n1 < n2). 194. Дан массив из четного числа элементов.... https://www.cyberforum.ru/ pascalabc/ thread561542.html
Pascal ABC Вывод списка стран, в которые производятся поставки товара, в порядке убывания объема сделок Дан файл, содержащий сведения об экспортируемых товарах: наименование товара, страна, импортирующая товар, стоимость и объем поставляемой партии в штуках. Составить программу вывода списка стран, в... https://www.cyberforum.ru/ pascalabc/ thread561540.html	Вычислить значение выражения Pascal ABC Нужно составить алгоритм, содержащий пользовательскую функцию, для выполнения расчёта значения выражения... Помогите пожалуйста..не могу понять эту задачу...
Pascal ABC Матрица. Отрицательные элементы заменить на нули, а положительные на единицы Помогите, пожалуйста, написать программу в паскале в матрице А отрицательные элементы заменить на нули, а положительные на единицы и записать результат в матрицу В. элементы матрицы вычисляются по... https://www.cyberforum.ru/ pascalabc/ thread561480.html	Pascal ABC параметрические уравнения.. https://www.cyberforum.ru/ pascalabc/ thread561467.html нужно написать программу для построения динамических кривых. я организовала диалог и написала процедуру для циклоиды...а для эпитрохоиды и гипотрохоиды не могу.. вот задание: Эпитрохоида ...
Pascal ABC Нарисовать кита нужно расположить рисунок в каждом углу и посередине экрана	Pascal ABC Графика. Составить программу штриховки квадрата https://www.cyberforum.ru/ pascalabc/ thread561439.html Составить программу штриховки квадрата. Угол наклона линий штриховки и шаг штриховки задаются пользователем.

Владимир_ВМ

128 / 109 / 103

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

Сообщений: 340

30.04.2012, 00:40

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического - Pascal ABC - Ответ 2971371

30.04.2012, 00:40. Показов 2368. Ответов 1

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

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

Решение

Pascal

var
a:array[1..20]of integer;
s:real;
i,n,sround:integer;
begin
randomize;
s:=0;
write('vvedite n=');read(n);
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i]:3);
    s:=s+a[i];
  end;
s:=s/n;
writeln('ñðåäíåå àðèôìåòè÷åñêîå=',s:8:4);
sround:=round(s);
writeln('èçìåíåííûé ìàññèâ:');
for i:=1 to n do
  begin
    if a[i]<s then a[i]:=sround;
    write(a[i]:3);
  end;
end.

Вернуться к обсуждению:
Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.04.2012, 00:40

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

Заполнить все элементы большие 5 значением среднего арифметического элементов массива
заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива

Все отрицательные элементы массива заменить квадратом среднего арифметического
Дан массив.Все отрицательные элементы этого массива заменить квадратом среднего арифметического его...

Массив: все элементы, больше среднего арифметического элементов массива, заменить на 0
Ээй,помогите пожалуйста):flirt: заполнить двумерный массив NxN случайными числами из...

Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение.
Задана вещественная матрица размером NхM. Для каждой строки заменить все элементы матрицы меньшие...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.04.2012, 00:40

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

В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент > 0 значением среднего арифметического элементов массива
В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент >0 , значением...

Найти в файле числа, меньшие среднего арифметического значения всех чисел массива
Создать файл, содержащий 10 вещественных чисел. Найти числа, меньшие среднего арифметического...

Удалить элементы массива, которые имеют значение больше среднего арифметического
помогите пожалуйста решить последнюю часть задачи. в общем нужно удалить элементы массива, которые...

Нахождение среднего арифметического и среднего геометрического двух чисел
Напишите программу для вычисления значения V по формуле V = V0 ( 3/2  - 1/2...

Наверх