Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Takedo2010
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
#1

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

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

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

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

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

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

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

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

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

2
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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