Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Buyaka cha
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 2
1

Дан одномерный массив. Найдите сумму максимального и последнего элементов массива. Delphi

15.11.2010, 11:22. Просмотров 1421. Ответов 8
Метки нет (Все метки)

помогите пожалуйста решить задачу на Delphi.

Составьте словесно формульный алгоритм, блок-схему и программу для решения следующей задачи.

Дан одномерный массив. Найдите сумму максимального и последнего элементов массива.

Хотя бы программу блок схему я смогу сделать.
заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2010, 11:22
Ответы с готовыми решениями:

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

Дан одномерный массив А длиной N. Подсчитать количество максимальных элементов массива.
как это сделать??))

Дан одномерный массив A длиной N. Посчитать количество минимальных элементов массива
Помогите пожалуйста. Дан одномерный массив A длиной N. Посчитать количество...

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

Дан одномерный массив произвольного размера. Выведите номера всех четных элементов массива
Дан одномерный массив произвольного размера. Выведите номера всех четных...

8
Romantik_FM
309 / 305 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
15.11.2010, 12:03 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
maxX:=StrToInt(StringGrid1.cells[0,0]);
for i:=0 to 9 do
 BEGIN
  If maxX > StrToInt(StringGrid1.Cells[0,i]) then
   begin
    Label12.Caption:=IntToStr(maxX);
   end
   else
   if maxX < StrToInt(StringGrid1.Cells[0,i]) then
   begin
    maxX:=StrToInt(StringGrid1.Cells[0,i]);
   end;
  Label12.Caption:=IntToStr(maxX);
 END;
 
 
..........
 
Label2.caption:=IntToStr(StrToInt(StringGrid1.Cells[0,9])+maxX);
1
Sanprof
95 / 95 / 16
Регистрация: 28.01.2008
Сообщений: 426
15.11.2010, 12:12 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  n: integer = 1000;
var
  mass[0..n-1] of Integer;
  MaxEl, Summa, i: Integer;
 
.....
 
begin
  MaxEl := 0;
  for i := 0 to n-1 do
  if MaxEl < Mass[i] then
    MaxEl := Mass[i];
  Summa := MaxEl + Mass[n-1];
end;
1
Buyaka cha
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 2
15.11.2010, 13:43 4
можно пояснение что куда эти 2 части?
0
Sanprof
95 / 95 / 16
Регистрация: 28.01.2008
Сообщений: 426
15.11.2010, 14:45 5
Цитата Сообщение от Buyaka cha Посмотреть сообщение
можно пояснение что куда эти 2 части?
то что выше точек то значит нужно глобально объявить, тоесть в разделе Interface, ну а то что между begin и end; это уже на ваше усмотрение, можно отдельную процедурку сделать и туда этот код запихнуть, можно по нажатию на кнопку, вам решать.
1
Romantik_FM
309 / 305 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
15.11.2010, 17:28 6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
maxX:=StrToInt(StringGrid1.cells[0,0]);
for i:=0 to 9 do
 BEGIN
  If maxX > StrToInt(StringGrid1.Cells[0,i]) then
   begin
    Label12.Caption:=IntToStr(maxX);
   end
   else
   if maxX < StrToInt(StringGrid1.Cells[0,i]) then
   begin
    maxX:=StrToInt(StringGrid1.Cells[0,i]);
   end;
  Label12.Caption:=IntToStr(maxX);
 END;
//поиск максимального элемента
 
..........
 
Label2.caption:=IntToStr(StrToInt(StringGrid1.Cells[0,9])+maxX);
//Сумма максимального и последнего элемента
1
Sanprof
95 / 95 / 16
Регистрация: 28.01.2008
Сообщений: 426
16.11.2010, 16:29 7
Romantik_FM, такой интересный вопрос зачем использовать лишний компонент, если в условии нежно работать с массивом???
0
Romantik_FM
309 / 305 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
16.11.2010, 18:03 8
Для наглядности. Так понятнее а потом можно и без него))
0
евгений1980
8 / 3 / 0
Регистрация: 10.05.2011
Сообщений: 96
10.05.2011, 22:14 9
вечер добрый всем!помогите пожалуйста кто в этом силён-дан одномерный массив е[10],элементы которого вводятся с клавиатуры.наити сумму max и min элементов массива.на экран вывести сам массив и сумму.
напишите программу пжлста.
0
10.05.2011, 22:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2011, 22:14

Дан одномерный массив. Вставить перед мипимальным элементом 0, а после максимального 100
Помогите дописать... Пример 1,1,5,10,1,10 ...

Delphi. Дан Массив А (18). Вычислить среднее арифметическое значение элементов массива А, условие 0<=A(i)<=100
Помогите пожалуйста написать программу..

Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30
Дан двумерный массив целых чисел. Определить сумму элементов массива больших 30.


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

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

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