Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Равна ли сумма двух первых цифр четырехзначного числа сумме двух последних цифр https://www.cyberforum.ru/ pascalabc/ thread561853.html
Помогите пожалуйста, очень нужно, заранее благодарю! Операции DIV и MOD 7. Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр. Операторы цикла 14. Найти степень числа А. 		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: string; sdol,sev,shod,sden,sobdoh,sd,se: string; dol,ev,den,obdoh,d,e: real; w: array of real; procedure fon; begin 		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 Вывод списка стран, в которые производятся поставки товара, в порядке убывания объема сделок Дан файл, содержащий сведения об экспортируемых товарах: наименование товара, страна, импортирующая товар, стоимость и объем поставляемой партии в штуках. Составить программу вывода списка стран, в которые производятся поставки товара, в порядке убывания объема сделок; uses crt; Procedure obmen(var a,b:string); var c:string; begin c:=a;a:=b;b:=c; end; type eksport=record; ... https://www.cyberforum.ru/ pascalabc/ thread561540.html Вычислить значение выражения Pascal ABC
Нужно составить алгоритм, содержащий пользовательскую функцию, для выполнения расчёта значения выражения... Помогите пожалуйста..не могу понять эту задачу...
Pascal ABC Матрица. Отрицательные элементы заменить на нули, а положительные на единицы Помогите, пожалуйста, написать программу в паскале в матрице А отрицательные элементы заменить на нули, а положительные на единицы и записать результат в матрицу В. элементы матрицы вычисляются по формуле aij=1/i-1/j, где i,j=1,2....10. https://www.cyberforum.ru/ pascalabc/ thread561480.html Pascal ABC параметрические уравнения.. https://www.cyberforum.ru/ pascalabc/ thread561467.html
нужно написать программу для построения динамических кривых. я организовала диалог и написала процедуру для циклоиды...а для эпитрохоиды и гипотрохоиды не могу.. вот задание: Эпитрохоида r/h = 2/1 Гипотрохоида r/h = 1/6 r − радиус подвижной (производящей) окружности R − радиус неподвижной (направляющей) окружности h − расстояние, на котором располагается...
Pascal ABC Нарисовать кита
нужно расположить рисунок в каждом углу и посередине экрана 		Pascal ABC Графика. Составить программу штриховки квадрата https://www.cyberforum.ru/ pascalabc/ thread561439.html
Составить программу штриховки квадрата. Угол наклона линий штриховки и шаг штриховки задаются пользователем.
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
30.04.2012, 00:40 0

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

30.04.2012, 00:40. Показов 2581. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

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
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 30.04.2012, 00:40
Готовые ответы и решения:

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

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

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

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

1
30.04.2012, 00:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 30.04.2012, 00:40
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru