Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 1
Регистрация: 18.12.2013
Сообщений: 9
1

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

19.05.2014, 18:24. Показов 1650. Ответов 1
Метки нет (Все метки)

Даны целые числа a1....аn.Все члены последовательности с четными номерами,предшествующие первому по порядку члену со значением max(a1,...,an),домножить на max (a1,...,an).
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2014, 18:24
Ответы с готовыми решениями:

Требуется домножить все члены последовательности на квадрат ее наименьшего члена
Дана последовательность действительных чисел а1, а2,..., аn. Требуется домножить все члены...

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

Домножить все члены заданной последовательности, на квадрат ее наименьшего (или наибольшего) члена
Доброго времени суток. В универе нам задали задание "даны действительные числа a1 ...., a26. Надо...

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

1
0 / 0 / 1
Регистрация: 18.12.2013
Сообщений: 9
25.05.2014, 16:07  [ТС] 2
Лучший ответ Сообщение было отмечено Дрина как решение

Решение

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
25
26
27
28
29
program gg;
const n=4; 
var a:array[1..n] of integer;
max,y,g,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(20);
write(a[i],' ');
end;
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
end;
writeln('максимальный элемент массива =',max);
begin
max:=1;
for i:=1 to n do begin
if a[i]>a[max] then
max:=i;
end;
end;
writeln('номер максимального элемента=',' ',max);
y:=max;
for i:=1 to y do begin
if i mod 2=0 then
a[i]:=a[i]*a[y];
write(' ',a[i],' ');
end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2014, 16:07

Домножить все члены последовательности на квадрат ее наименьшего числа
Даны действительные числа a1,a2,...,a30. Требуется домножить все члены последовательности...

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

Все члены данной последовательности с четными номерами, предшествующие первому по порядку члену, домножить на max
Приветствую. Прошу помочь с решением данного задания. Заранее благодарен. Даны целые числа...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.