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

Найти произведение только тех чисел, которые больше заданного числа m

22.03.2011, 10:07. Показов 2057. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составить программу на паскале, содержащую минимум четыре подпрограммы.
Дан одномерный массив, выполнить следующие действия:
а)вычислить произведение отрицательных элементов Р1, произведение положительных элементов Р2, сравнить модуль с модулем Р1, указать, какое из произведений по модулю больше.
б)найти произведение только тех чисел, которые больше заданного числа m.
в)подсчитать, сколько в нем положительных элементов.
г)поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.
Помогите кто может...скоро сдавать...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2011, 10:07
Ответы с готовыми решениями:

Найти произведение только тех чисел, которые больше заданного числа
дана последовательность целых положительных чисел. найти произведение только тех чисел, которые...

Массивы: Найти произведение тех чисел, которые больше заданного числа
2. Дана последовательность целых положительных чисел. найти произведение тех чисел, которые больше...

Даны числа от 1 до n Найти среднее арифметическое только тех чисел Которые больше числа x вводимого с клавиатуры
Здравствуйте, нужна ваша помощь! Даны числа от 1 до n Найти среднее арифметическое только тех...

Найти сумму тех чисел, которые больше заданного М
вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые > заданного М...

1
109 / 109 / 91
Регистрация: 08.01.2011
Сообщений: 171
22.03.2011, 11:36 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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
program tt;
uses crt;
type Tmas=array[1..100] of integer;
var
  m:Tmas;
  n,i:byte;
  m_:integer;
  ch:char;
procedure enter(n:byte;var arr:Tmas);
begin
  randomize;
  for i:=1 to n do
    arr[i]:=random(40)-20;
end;
 
procedure show(n:byte;arr:Tmas);
begin
  write('Массив: ');
  for i:=1 to n do
    write(arr[i],' ');
  writeln;
end;
 
procedure z_a(n:byte;arr:Tmas);
var
  p1,p2:integer;
  pr:integer;
begin
  ClrScr;
  p1:=1;
  p2:=1;
  for i:=1 to n do begin
    if arr[i]<0 then p1:=p1*arr[i];
    if arr[i]>0 then p2:=p2*arr[i];
  end;
  writeln('Произведение положительных: ',p2);
  writeln('Произведение отрицательных: ',p1);
  if abs(p1)>p2 then writeln('Произведение отрицательных больше')
  else writeln('Произведение положительных больше');
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
 
procedure z_b(m_:integer;n:byte;arr:Tmas);
var
  p:integer;
begin
  ClrScr;
  p:=1;
  for i:=1 to n do
    if arr[i]>m_ then
      p:=p*arr[i];
  writeln('Произведение элементов больших m: ',p);
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
procedure z_c(n:byte;arr:Tmas);
var
  kol:byte;
begin
  ClrScr;
  kol:=0;
  for i:=1 to n do
    if arr[i]>0 then
      inc(kol);
  writeln('Кол-во положительных элементов: ',kol);
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
 
procedure z_d(n:byte;arr:Tmas);
var
  c:integer;
begin
  for i:=1 to n do
    if odd(i) then begin
      c:=arr[i];
      arr[i]:=arr[i+1];
      arr[i+1]:=c;
    end;
  for i:=1 to n do
    write(arr[i],' ');
  writeln;
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
 
BEGIN
  write('Введите размер массива ');
  readln(n);
  enter(n,m);
  repeat
  ClrScr;
  show(n,m);
  writeln('1. задача а');
  writeln('2. задача б');
  writeln('3. задача в');
  writeln('4. задача г');
  writeln('5. Выход');
  ch:=readkey;
  case ch of
    #49:z_a(n,m);
    #50:begin
        ClrSCr;
        write('Введите m ');
        readln(m_);
        z_b(m_,n,m);
      end;
    #51:z_c(n,m);
    #52:z_d(n,m);
  end;
  until ch=#53;
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2011, 11:36
Помогаю со студенческими работами здесь

Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10
Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10. задача на цикл...

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.
Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.

Найти среднее арифметическое тех элементов массива, которые больше заданного значения Z
Дан массив X(N,M).Найти среднее арифметическое тех элементов массива, которые больше заданного...


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

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

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