0 / 0 / 0
Регистрация: 09.04.2017
Сообщений: 1
1

Найти сумму элементов массива между его максимальным и минимальным элементами

09.04.2017, 11:25. Показов 5274. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите найти ошибку в программе, она почему-то работает неправильно.
Задание:Задать массив целых чисел размерностью 20, найти max и min элементы и сумму элементов между ними (макс и мин элементы включить в сумму).
Программа неправильно находит индексы макс и мин элементов, а с суммой вообще беда, она постоянно ноль

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Program nn;
uses crt;
var a:array[0..20] of integer;i,n,amax,amin,k,m,j,sum:integer;
begin clrscr;
for i:=1 to 20 do
a[i]:=random(30)-7;
writeln(a);
n:=20;
amax:=a[1];
i:=2;
while i<=n do
begin
if a[i]>amax then 
begin
amax:=a[i];
k:=i;
end;
i:=i+1;
end;
writeln('amax=',amax,' k=',k);
amin:=a[1];
i:=2;
while i<=n do
begin
if a[i]<amin then
begin
amin:=a[i];
m:=i;
end;
i:=i+1;
end;
writeln('amin=',amin,' m=',m);
if k<m then
begin
j:=a[k];
a[k]:=a[m];
a[m]:=j;
end;
writeln(a);
sum:=0;
i:=m;
for i:=m to k do
sum:=sum+a[i];
writeln(sum);
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2017, 11:25
Ответы с готовыми решениями:

Найти сумму элементов S, расположенных между максимальным МАХ и минимальным MIN элементами
Массив Z(15) заполнить целыми случайными числами в диапазоне от 4 до 96. Найти сумму элементов S,...

Найти произведение элементов массива, расположенных между максимальным и минимальным элементами
В одномерном массиве состоящем из n вещественных элементов вычислить: 1. Произведение элементов...

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

Числовой массив. Найти сумму его элементов, расположенных между максимальным и минимальным членами
Дан числовой массив а(n). Найти сумму его элементов, расположенных между максимальным и минимальным...

1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.04.2017, 12:01 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
30
31
32
Program nn;
uses crt;
const n=20;
var a:array[1..n] of integer;
    i,amax,amin,j,sum:integer;
begin
clrscr;
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-7+random(30);
  write(a[i]:4);
 end;
amax:=1;
amin:=1;
for i:=2 to n do
if a[i]>a[amax] then amax:=i
else if a[i]<a[amin] then amin:=i;
writeln('Максимальный элемент=',a[amax],' индекс=',amax);
writeln('Минимальный элемент=',a[amin],' индекс=',amin);
if amax<amin then
 begin
  j:=amax;
  amax:=amin;
  amin:=j;
 end;
sum:=0;
for i:=amin to amax do
sum:=sum+a[i];
writeln('Сумма от минимального до максимального=',sum);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2017, 12:01
Помогаю со студенческими работами здесь

Найти сумму элементов массива, расположенных между минимальным и максимальным элементом
Здравствуйте помогите решить вот эту задачу: Дана последовательность из N различных чисел....

Обнулить элементы массива, расположенные между его минимальным и максимальным элементами
Дан массив размера N. Обнулить элементы массива, расположенные между его минимальным и максимальным...

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

Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами
4. Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru