15.03.2010, 20:05 | #1 (ссылка) |
Новичок
Регистрация: 15.03.2010
Сообщений: 2
Репутация: 1
|
Последовательность действительных чисел
Даны действительные числа А1,А2,А3...Аn. Все числа последовательности с чётными номерами, предшествующие первому по порядку члену со значением Max(A1,A2,A3...An) умножить на Max (A1,A2,A3,A4...An).
Никак не могу понять как ее написать в Pascal. |
19.03.2010, 11:40 | #2 (ссылка) |
Новичок
|
int a[i];//вводишь последовательность
int n; //мощность континуума последовательности; int k; while (i=0; i<n; i++) {if a[i+1]>a[i] a[i+1]=max; else i++}//начинаем перебор данных, если на и-том шаге значение последующего больше чем на предыдущем записываем его в максимум, если нет - идем дальше; if k==2i {a[k]=a[k]*max;} printf a[i];//выводишь свой массив (функция условна); ---------- Добавлено в 10:40 ---------- Предыдущее сообщение было написано в 10:40 ---------- но это на си... алгоритм понятен? |
19.03.2010, 17:10 | #3 (ссылка) |
Новичок
Регистрация: 10.07.2009
Сообщений: 227
Репутация: 17
|
ternopol1, Вот решение
program gg; const n=4; // n моежт быть любым 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. ЗЫ результат - это последовательность чисел: нечетные номера остались такими же как и были введены в начале, а четные были умножены на максимальное значение элемента. |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Последовательность действий при создании информационной структуры | НВасилий | Интернет и сети | 3 | 14.07.2010 16:15 |
Паскаль, проверка чисел через циклы | m.k | Программирование | 1 | 03.05.2010 18:38 |
Генератор случайных чисел в Visual C++ | Alexei1986 | Программирование | 1 | 08.11.2009 14:40 |
Проверка чисел на простоту в Maple | Alexei1986 | Программирование | 1 | 05.06.2009 02:21 |
Помогите с делением чисел с плавающей запятой | sasiska | Железо | 1 | 17.03.2008 16:37 |