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

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

13.01.2013, 21:06. Просмотров 300. Ответов 1
Метки нет (Все метки)

В одномерном массиве состоящем из n вещественных элементов вычислить:
1. Произведение элементов массива, расположенных между максимальным и минимальным элементами
2. Сумму отрицательных элементов массива
Упорядочить элементы массива по возрастанию
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2013, 21:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение элементов массива, расположенных между максимальным и минимальным элементами (Turbo Pascal):

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

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

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

Найти произведение элементов массива, расположенных между максимальным и минимальным
Одномерные массивы. Помогите доделать Дан одномерный массив, состоящий из N...

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

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

1
ntrx
122 / 122 / 82
Регистрация: 03.01.2013
Сообщений: 241
13.01.2013, 21:33 #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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program gdf;
const n = 20;
var a : array[1..n] of longint;
      i,j : integer;
      min,max,sum,msum,c : longint;
      mini, maxi : integer;
begin
   randomize();
   for i:=1 to n do
        a[i] := random(20)-15;
   
   for i:=1 to n do
         write(a[i],' ');
   
   writeln;
   max := a[1];
   min := a[1];
   for i:=1 to n do begin
        if (a[i]>max) then begin
             max := a[i];
             maxi := i;
        end;
        if (a[i]<min) then begin
             min := a[i];
             mini := i;
        end;
   end;
   sum:=1;
     
   if (maxi>mini) then begin
        for i:=mini to maxi do begin 
                 sum:=a[i]*sum;
        end;
   end;
   
   if (mini>maxi) then begin
        for j:=maxi to mini do begin
                 sum:=a[i]*sum;
        end;
   end;
        
   write('max(',max,'): ',maxi,' min(',min,'): ',mini);
   writeln;
   writeln('Dob: ', sum:5);
   msum:=0;
   for i:=1 to n do
        if (a[i]<0) then msum := msum+a[i];
          writeln('Sum <0: ',msum);
        
   for i:=1 to n do begin
        min := i;
        for j:=i+1 to n do 
              if (a[j]<A[min]) then min := j;
         if (min<>i) then begin
                 c:=a[i];
                 a[i]:=a[min];
                 a[min]:=c;
         end;
   end;
   writeln('Sorted: ');
   for i:=1 to n do
           write(a[i],' ');                  
   readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2013, 21:33
Привет! Вот еще темы с решениями:

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

Определить количество элементов, расположенных между минимальным и максимальным элементами
помогите с решением: В массиве 25 элементов. Определить количество...

Найти сумму элементов массива между его максимальным и минимальным элементами
Помогите найти ошибку в программе, она почему-то работает неправильно. ...

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


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

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

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