Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Нарисовать график производной к ее функции дана функция y(x)=ln(x+1). Составить программу которая нарисует эту функцию по точкам. https://www.cyberforum.ru/ pascalabc/ thread1112982.html Ввести с клавиатуры положительное целое число А и вывести на экран сумму его нечетных цифр Pascal ABC
Напишите следующую программу. Ввести с клавиатуры положительное целое число А и вывести на экран сумму его нечетных цифр.
Pascal ABC Ввести с клавиатуры положительное целое число А и вывести на экран количество его цифр, больших 6 https://www.cyberforum.ru/ pascalabc/ thread1112927.html
Напишите следующую программу. Ввести с клавиатуры положительное целое число А и вывести на экран количество его цифр, больших 6. Например, если введено число 42129761, то на экране мы должны увидеть... 		Pascal ABC Матрица с цифровой информацией https://www.cyberforum.ru/ pascalabc/ thread1112923.html
Вводится матрица МТ (n,m) с цифровой информацией. Составить программу нахождения в столбцах матрицы положительных элементов, подсчета их количества и сумм. Получить новую матрицу, в которой элементы...
Дана матрица вероятностей Марковской цепи, код программы Pascal ABC
Добрый день всем. Помогите разобрать эту задачу в виде кода. Не могу сам сообразить как это воплотить программно. Вот сама задача: Дана матрица переходных вероятностей марковской цепи с дискретным... 		Pascal ABC Вывести радиус окружности, чей центр самый удаленный от оси OX https://www.cyberforum.ru/ pascalabc/ thread1112855.html
Определить комбинированный тип, описывающий окружность и состоящий из двух полей: «радиус» и «центр». Поле «центр» в свою очередь состоит еще из двух полей: «координата X» и «координата Y». Ввести...
Pascal ABC Вывести расписание, отсортированное по возрастанию времени в пути, затем вывести расписание, отсортированное по станции отправления по алфавиту https://www.cyberforum.ru/ pascalabc/ thread1112851.html
Составить программу, выводящую на экран расписание движения поездов (станция отправления, станция прибытия, время прибытия, время в пути). Сначала вывести расписание, отсортированное по возрастанию... 		Ввести информацию по 25 студентам из группы. Переписать из исходного массива в другой массив, информацию о девочках Pascal ABC
Определить комбинированный тип для представления анкеты студента, состоящей из его фамилии, дня рождения и пола. «День рождения» состоит из полей: «число», «месяц», «год». Ввести информацию по 25...
Pascal ABC Ввести информацию по 10 окружностям Определить комбинированный тип, описывающий окружность и состоящий из двух полей: «радиус» и «центр». Поле «центр» в свою очередь состоит еще из двух полей: «координата X» и «координата Y». Ввести... https://www.cyberforum.ru/ pascalabc/ thread1112846.html Pascal ABC Вывести средний рост мальчиков и имена всех мальчиков ниже среднего https://www.cyberforum.ru/ pascalabc/ thread1112845.html
Определить комбинированный тип для представления анкеты ребенка, состоящей из его имени, пола и роста. Ввести информацию по 20 детям. Вывести имя самого высокого мальчика. Вывести средний рост...
Pascal ABC Определить принадлежат ли точки одной площади
В трехмерном пространстве задается n точек (3<=n<=100). Определить принадлежат ли они одной площади? Решить используя попрограмму... 		Pascal ABC Использую подпрограмму определить находятся ли точка (x,y) в середине четырехугольника ABCD Использую подпрограмму определить находятся ли точка (x,y) в середине четырехугольника ABCD https://www.cyberforum.ru/ pascalabc/ thread1112734.html
79 / 53 / 65
Регистрация: 18.06.2013
Сообщений: 99
07.03.2014, 09:10 0

Все члены данной последовательности с четными номерами, предшествующие первому по порядку члену, домножить на max - Pascal ABC - Ответ 5869202

07.03.2014, 09:10. Показов 2615. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено AkonDrow как решение

Решение

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..100] of integer;
i,n,max:integer;
begin
writeln ('vvedite n:');
readln(n);
writeln ('Vvedite posledovatelnost');
for i:=1 to n do
readln(a[i]);
writeln ('Posledovatelnost');
max:=1;
for i:=1 to n do
begin
write(a[i],' ');
if a[max]<a[i] then max:=i;
end;
writeln;
writeln ('Posledovatelnost posle obrabotki');
for i:=1 to n do
begin
if ((i mod 2)=0)and(i<=(max-1)) then a[i]:=a[i]*a[max];
write(a[i],' ');
end;
end.


Вернуться к обсуждению:
Все члены данной последовательности с четными номерами, предшествующие первому по порядку члену, домножить на max Pascal ABC
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 07.03.2014, 09:10
Готовые ответы и решения:

Все члены последовательности с чётными номерами, предшествующие максимальному члену, домножить на него.
Даны целые числа a1....аn.Все члены последовательности с четными номерами,предшествующие первому по...

Все члены массива с четными номерами, предшествующие первому наибольшему, домножить на значение этого элемента
Дан массив целых чисел А(n). Все члены массива с четными номерами, предшествующие первому...

Найти наименьший элемент массива и домножить на него все члены последовательности, предшествующие этому члену
Dev C++ использовать библиотеки (&lt;include stdio.h&gt; и тд) Дан массив А(40). Найти наименьший...

Все члены массива с четными номерами, предшествующие максимальному, домножить на индекс максимального
Дан массив целых чисел А. Все члены массива с четными номерами, предшествующие максимальному...

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

Все члены последовательности с четными номерами домножить на заданное число
Просьба помочь с заданием. &quot;Даны целые числа a1,...,a30. Все члены последовательности с четными...

Все элементы массива с четными номерами, предшествующие первому max, умножить на значение максимума
Все элементы массива с четными номерами, предшествующие первому по порядку элементу с максимальным...

Все члены массива с четными номерами домножить на значение индекса максимального элемента
Дан Массив целых чисел А. Все члены массива с четными номерами, предшествующие максимальному...

Все члены массива с четными номерами домножить на значение индекса максимального элемента
Дан Массив целых чисел А. Все члены массива с четными номерами, предшествующие максимальному...

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