Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Takedo2010
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
#1

Найдите наибольшее значение суммы двух соседних элементов массива - Turbo Pascal

28.10.2013, 02:07. Просмотров 578. Ответов 2
Метки нет (Все метки)

ребят помогите плиз))
*Дан одномерный массив AN. Найдите наибольшее значение суммы двух соседних элементов и выведите на экран это значение, индексы соответствующих элементов и их величины.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 02:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найдите наибольшее значение суммы двух соседних элементов массива (Turbo Pascal):

Найдите наименьшее значение суммы квадратов двух соседних элементов массива - Turbo Pascal
Дан одномерный массив AN. Найдите наименьшее значение суммы квадратов двух соседних элементов и выведите на экран это значение, индексы...

Найдите наибольшее значение среди элементов массива - Turbo Pascal
ТЕМА: Использование вложенных циклов и ветвлений при обработке массивов Обработка матриц Задание: Найдите наибольшее значение...

Определить количество элементов массива, значения которых больше СУММЫ соседних элементов - Pascal
Дан одномерный массив из 15 элементов. Определить количество элементов, значения которых больше СУММЫ соседних элементов (предыдущего и...

Найти произведение двух соседних элементов массива, наиболее близкое по модулю к К - Turbo Pascal
Найти произведение двух соседних элементов массива, наиболее близкое по модулю к К.

Найти произведение двух соседних элементов массива, наиболее удаленное по модулю от К - Pascal
Паскаль.... ненавижу его=(((( Найти произведение двух соседних элементов массива, наиболее удаленное по модулю от К. ...

Найдите суммы элементов массива четных и нечетных позиций - Turbo Pascal
Найдите суммы элементов массива четных и нечетных позиций. помогите пожалуйстаа..

2
Fakeoke
313 / 313 / 95
Регистрация: 28.07.2011
Сообщений: 1,846
28.10.2013, 15:18 #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
uses crt;
const n=10;
var a:array [1..n] of integer;
i,s,li,ri,maxs:integer;
begin
clrscr;
randomize;
writeln('Massive A:');
for i:=1 to n do
begin
        a[i]:=random(100);
        write(a[i],' ');
end;
maxs:=-maxint;;
for i:=1 to n-1 do
begin
        s:=a[i]+a[i+1];
        if (maxs<s) then
        begin
        maxs:=s;
        li:=i;
        ri:=i+1;
        end;
end;
writeln;
writeln('Max summa = ',maxs);
writeln('Slozhili a[',li,']=',a[li],' i a[',ri,']=',a[ri],' elementi');
readkey;
end.
1
Takedo2010
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
28.10.2013, 20:14  [ТС] #3
спасибо большое за ответ))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 20:14
Привет! Вот еще темы с ответами:

Найти наибольшее произведение двух элементов массива, указав их индексы - Pascal
Найти наибольшее произведение двух элементов массива, указав их индексы.

Заменить каждый элемент массива суммой соседних индексов. Если соседних элементов нет, то число оставить без изменения. - Pascal
1)Дан одномерный массив, который содержит не более 50 целых чисел. Заменить каждый элемент массива суммой соседних индексов. Если соседних...

Найдите минимальное значение среди положительных элементов массива - Turbo Pascal
Задание 3. Найдите минимальное значение среди положительных элементов массива.

Найдите наибольшее значение функции - Pascal
Найдите наибольшее значение функции y=3x3+4x2-2x+8 вычислив ее в подпрограмме на отрезке .


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

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

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