Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
FksisPoit
3 / 3 / 2
Регистрация: 12.09.2012
Сообщений: 30
1

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

27.12.2012, 21:43. Просмотров 909. Ответов 1
Метки нет (Все метки)

В массиве A[100],содержащем целые положительные числа, найти сумму максимального количества чисел,при этом их произведение не должно превышать число 300
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2012, 21:43
Ответы с готовыми решениями:

В массиве A[100],содержащем целые положительные числа, найти сумму максимального количества чисел,при этом их произведение не должно превышать число 3
В массиве A,содержащем целые положительные числа, найти сумму максимального количества чисел,при...

Вывести 15 случайных чисел при этом каждое число должно быть не меньше предыдущего
Помогите class Example { public static void main (Stringargs) { int a,b,c; a=1; ...

Введя числа с клавиатуры без ограничения их количества (конец ввода - число ноль), найти сумму положительных и произведение отрицательных чисел
Помогите решить, пожалуйста. Введя числа с клавиатуры без ограничения их количества (конец ввода...

Вывести все целые числа от А до В включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т.д.
Даны целые числа A и B (A< B). Вывести все целые числа от А до В включительно; при этом число A...

Соединить их в один упорядоченный массив F. Число сравнений не должно превышать m+n
Даны два упорядоченных набора чисел C1, C2, ..., Cn и D1, D2, ..., Dm. Соединить их в один...

1
baquaqa
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
30.12.2012, 02:24 2
Лучший ответ Сообщение было отмечено FksisPoit как решение

Решение

Здравствуйте, вот вариант решения:

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
program _array;
 
const 
 
 N    = 15;
 M    = 300;
 
type 
 
 TArray = Array [1..N] of byte;
 
var
 i:integer;
 Mas : TArray;
 
procedure FillMassive(var Mas:TArray);
 var
  i:integer;
begin
 for i:=1 to N do begin
                   mas[i]:=Random(100);
                   if mas[i]=0 then inc(mas[i]);
                  end;
end;
 
procedure Sort(var aMas:Tarray;left,right:integer);
 var
  l,r:integer;
  m,t:integer;
begin
 l:=left;
 r:=right;
 m:=aMas[(l+r) div 2];
 repeat
  while aMas[l]<m do inc(l);
  while aMas[r]>m do dec(r);
  if l<=r then begin
                t:=amas[l];
                aMas[l]:=aMas[r];
                aMas[r]:=t;
                inc(l);dec(r);
               end;
 until l>r;
 if left<r  then sort(aMas,left,r);
 if l<right then sort(aMas,l,right);
end;
 
function SpecSumm(aMas:TArray;smax:integer):integer;
{суммирует элементы массива, пока Summ<Smax }
 var
  Summ,P:integer;
  i,count:integer;
begin
 p:=1;
 count:=0;
 Summ:=0;
 for i:=1 to N do 
 if p*aMas[i]<smax then begin
                        inc(count);
                        p:=p*aMas[i];
                        end;
 for i:=1 to count do inc(summ,aMas[i]);               
writeln(count);
SpecSumm:=summ;                     
end;
BEGIN
{ fill & massive }
 randomize;
 FillMassive(Mas);
 Writeln('получен массив:');
 for i:=1 to N  do write(mas[i],' ');
 writeln('');
 sort(mas,1,N);
 writeln('после сортировки: ');
 for i:=1 to N  do write(mas[i],' ');
 writeln('');
 write('сумма максимального количества чисел произведение которых не превышает '
       ,M,' : ',SpecSumm(mas,m));
END.
(компилировался в PascalABC.net)
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2012, 02:24

Найти сумму максимального и минимального чисел строки, у которой произведение элементов нечетно
Найти сумму максимального и минимального чисел строки, у которой произведение элементов нечетно. ...

В массиве X найти сумму наибольшего количества чисел, произведение которых меньше M
ребята помогите с задачей В массиве X целых чисел найти сумму наибольшего количества чисел,...

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


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

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

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