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

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

29.02.2016, 02:37. Показов 1500. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, подсчитывающую в последовательности вещественных чисел (n<=30) сумму чисел , расположенных между максимальным и минимальным значением; вывести на экран монитора исходную последовательность и вычисленное значение.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.02.2016, 02:37
Ответы с готовыми решениями:

Найти сумму членов последовательности, расположенных между максимальным и минимальным значениями
Помогите кто чем сможит решить вот такую задачку Дана последовательность n различных целых...

Найти сумму членов последовательности, расположенных между максимальным и минимальным значениями
Дана последовательность n различных целых чисел. Найти сумму ее членов, расположенных между...

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

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

1
Эксперт Pascal/Delphi
2385 / 1297 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
29.02.2016, 10:57 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
const n=30;
var
  a:array[1..n] of real;
  i,j,k:integer;
  s:real;
begin
  randomize;
  j:=0;
  writeln('A:');
  for i:=1 to n do begin
    a[i]:=random*100;
    write(a[i]:6:2);
    j:=j+1;
    if j mod 5 =0 then writeln;
  end;
  j:=1;k:=1;
  for i:=1 to n do begin
    if a[i]>a[j] then j:=i;
    if a[i]<a[k] then k:=i;
  end;
  writeln;
  writeln('min:',a[k]:6:2,' max:',a[j]:6:2);
  s:=0.0;
  if j>k then for i:=k+1 to j-1 do s:=s+a[i] else for i:=j+1 to k-1 do s:=s+a[i];
  writeln('S=',s:6:2);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.02.2016, 10:57
Помогаю со студенческими работами здесь

45. Дана последовательность п различных целых чисел. Найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включит
Дана последовательность п различных целых чисел. Найти сумму ее членов, расположенных между...

Найти сумму членов последовательности, расположенных между максимальным и минимальным значением
Доброе время суток! Самостоятельно изучаю C++. Нашел интересную задачу. Что-то запутался и не могу...

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

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


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

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

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