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

Одномерный массив: увеличение всех чисел, больших двух минимальных на минимальное число

25.01.2013, 23:25. Показов 1117. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
одномерный массив: увеличение всех чисел, больших двух минимальных на минимальное число.
Выручайте, завтра экзамен(
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.01.2013, 23:25
Ответы с готовыми решениями:

Одномерный массив: найти i и j такие, что a[i]*a[j] принимает минимальное из всех произведений
Задан массив из n элементов. Нужно найти i и j такие, что a*a принимает минимальное из всех произведений. Примечание*: использовать...

Умножение всех чисел на минимальное число
Добрый день,помогите переделать программу необходимо сделать так чтобы данная программа находила минимальное число и умножала все числа на...

Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число
1). Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число. Заранее здоровенное...

2
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
26.01.2013, 01:23
Лучший ответ Сообщение было отмечено gidra_poison как решение

Решение

Цитата Сообщение от gidra_poison Посмотреть сообщение
больших двух минимальных
Больших двух минимальных в сумме или по отдельности?
Сделал по отдельности:
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
Var
  x: Array[1..100] of Integer;
  i,n,min1,min2,imin: Integer;
BEGIN
Write('Введите кол-во чисел: ');
Readln(n);
Randomize;
min1:=Maxint;
Writeln('Исходный массив:');
For i:=1 to n do
begin
  x[i]:=Random(100);
  If x[i]<min1 Then
  begin
    min1:=x[i];
    imin:=i;
  end;
  Write(x[i],' ');
end;
min2:=Maxint;
For i:=1 to n do
If i=imin Then
Continue
Else
If x[i]<min2 Then min2:=x[i];
Writeln;
Writeln('MIN1= ',min1,' MIN2=',min2);
Writeln('Полученный:');
For i:=1 to n do
begin
  If (x[i]>min1) and (x[i]>min2) Then
  x[i]:=x[i]+min1;
  Write(x[i],' ');
end;
Readln
END.
1
0 / 0 / 1
Регистрация: 01.11.2012
Сообщений: 58
26.01.2013, 01:35  [ТС]
Спасибо огромное!, да по отдельности надо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.01.2013, 01:35
Помогаю со студенческими работами здесь

Максимальное и минимальное число отдельно среди всех положительных/отрицательных чисел
Здравствуйте! Помогите пожалуйста нужно найти максимальное и минимальное число отдельно среди всех положительных чисел и отдельно среди...

Найти максимальное и минимальное число отдельно среди всех положительных чисел массива
Товарищи помогите!!!Найти максимальное и минимальное число отдельно среди всех положительных чисел и отдельно среди всех отрицательных чисел

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

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

Дан одномерный массив из 10 целых чисел. Подсчитайте наибольшее число одинаковых идущих подряд в нем чисел
Console.WriteLine(&quot;Дан одномерный массив из 10 целых чисел. Подсчитайте наибольшее число одинаковых идущих подряд в нем чисел.&quot;); ...


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

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

Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru