15 / 16 / 1
Регистрация: 13.12.2009
Сообщений: 138
Записей в блоге: 1
1

Max и Min елементы

13.12.2009, 00:31. Показов 856. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста решить задачу. В одномерном масиве, состоящим из N елементов вычислить произведения елементов, разположеных между 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
Program prl;
Uses crt;
Var
   a:array [1..10] of integer;
   max,min,n,i:integer; 
begin 
clrscr;
max:=a[1];
min:=a[1];
writeln ('Введите количество элементов'); 
readln (n); 
for i:=1 to n do 
  begin
    writeln ('Введите массив'); 
    readln (a[i]); 
  end;
for i:=1 to n do 
  begin
    if a[i]>max then max:=a[i]; 
    if a[i]<min then min:=a[i];
    Вычислить произведения елементов расположеных между max и min
  end;
writeln ('произведение');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2009, 00:31
Ответы с готовыми решениями:

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке
Дан массив Х{80 элементов}. Вычислить {y}_{i}=sin\sqrt{{x}_{i}}+{cos}^{2}{{x}_{1}}^{2} Найти...

Записи: выяснить max и min сроки хранения товаров на складе; max и min цену товаров до уценки и после уценки
Торговый склад производит уценку хранящейся продукции. Если продукция хранится на складе дольше п...

Найти min(max(x, y), max(x, z), max(z, d))
Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен прошу знающих людей...

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c)
Даны целые числа a, b, c. Вычислить у-сумму. y=min(a,b+c)+max(ac,b)+min(a2,c) ????

1
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
13.12.2009, 01:05 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
65
uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,p,temp,temp1,temp2,max,min:integer;
{ôóíêöèÿ ïîèñêà ìàêñèìóìà двух чисел}
function fMax(a,b:integer):integer;
begin
  if a>b then
    fMax:=a
  else
    fMax:=b
end;
{ôóíêöèÿ ïîèñêà ìèíèìóìà двух чисел}
function fMin(a,b:integer):integer;
begin
  if a<b then
    fMin:=a
  else
    fMin:=b
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i]:2,' ')
  end;
  writeln(']');
  {íàõîäèì ìàêñèìóì è ìèíèìóì}
  max:=a[1];
  min:=max;
  temp1:=1;
  temp2:=1;
  for i:=1 to n do
  begin
    if a[i]>max then
    begin
      max:=a[i];
      temp1:=i
    end;
    if a[i]<min then
    begin
      min:=a[i];
      temp2:=i
    end
  end;
  writeln('Ìàêñèìàëüíûé ýëåìåíò: a[',temp1,']=',max);
  writeln('Ìèíèìàëüíûé ýëåìåíò:  a[',temp2,']=',min);
  p:=1;
  if abs(temp1-temp2)>1 then
  begin
    for i:=fMin(temp1,temp2)+1 to fMax(temp1,temp2)-1 do
      p:=p*a[i];
    writeln('Ïðîèçâåäåíèå: ',p)
  end
  else
    writeln('Ìåæäó íèìè íåò ýëåìåíòîâ!')
end.
2
13.12.2009, 01:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2009, 01:05
Помогаю со студенческими работами здесь

Найти max{min(a,b), min(c,d)}
Найти max{min(a,b), min(c,d)}. написать в Паскале.Помогите очень надо до завтра!

min, max ошибка
Не пойму почему, но Паскаль находит ошибку(ожидается &quot;)&quot;) после слова max Writeln(F2,...

Max/ Min. Процедуры
program Project1; {$APPTYPE CONSOLE} uses SysUtils; const n=5; Type Matr=array of...

Задание на min/max
Дано число B (&gt; 0) и набор из десяти чисел. Вывести минимальный из тех элементов набора, которые...


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

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

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