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

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

17.10.2017, 10:42. Просмотров 985. Ответов 2
Метки нет (Все метки)

В таблицу занесена последовательность из 10 чисел, взятых в проме-
жутке от –5 до 5. Найти:
а) наименьший член последовательности;
б) наименьший из положительных членов;
в) наибольшее из всевозможных попарных произведений
p.s данная задача уже была на форуме, но там ничего не ответили
заранее спасибо
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2017, 10:42
Ответы с готовыми решениями:

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

Наименьший член последовательности заменить целой частью среднего арифметического всех членов
Даны целые числа a1, a2, ..., an. Наименьший член последовательности a1, a2,...

Наименьший член последовательности заменить целой частью среднего арифметического всех членов
Добрый день! Посмотрите решение задачи.Если есть ошибки,поправьте пожалуйста ...

Наименьший член последовательности заменить целой частью среднего арифметического всех членов
Дана последовательность целых чисел а1, а2, …, аn. Наименьший член этой...

Наименьший член этой последовательности заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменений.
Дана последовательность целых чисел а1, а2, …, аn. Наименьший член этой...

2
Ivandur
417 / 694 / 167
Регистрация: 11.08.2016
Сообщений: 1,103
17.10.2017, 14:58 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

a)
Pascal
1
2
3
4
minx:=a[1];
for i:=2 to n do
   if a[i]>minx then
      minx:=a[i];
1
Соколиный глаз
C#
226 / 165 / 114
Регистрация: 25.07.2014
Сообщений: 3,265
Записей в блоге: 10
Завершенные тесты: 2
17.10.2017, 15:33 3
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Перевести на другой диалект с PascalABC.Net это:
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
{Наименьший из положительных.}
const
  N = 4;
 
var
  &Array: array of integer; 
  Min: integer;
  Found: boolean;
 
begin
  SetLength(&Array, N); 
  for var i := 0 to N - 1 do Readln(&Array[i]);
  
  Found := false;
  Min := integer.MaxValue; 
  for var i := 0 to N - 1 do 
    if (&Array[i] > 0) and (&Array[i] < Min) then
    begin
      Min := &Array[i];
      Found := true;
    end;
  
  Writeln(&Array); 
  if Found then
    Writeln(Min)
  else
    Writeln('Нет положительных элементов.');
end.
не будет проблемой.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{Наименьший.}
const
  N = 10;
 
var
  &Array: array of integer; 
  Min: integer;
 
begin
  SetLength(&Array, N); 
  for var i := 0 to N - 1 do &Array[i] := Random(100); 
  
  Min := integer.MaxValue; 
  for var i := 0 to N - 1 do 
    if &Array[i] < Min then Min := &Array[i]; 
  
  Writeln(&Array); 
  Writeln(Min); 
end.
Для пункта третьего - переберите все пары так:
Pascal
1
2
3
for var i := 0 to N - 1 do
  for var j := i + 1 to N - 1 do
    {Аналогично поиску максимума.}
Добавлено через 45 секунд
Не смущайтесь &Array - это просто имя массива. Задайте любое другое.

Добавлено через 44 секунды

Не по теме:

P. S. Перебор всех вариантов очень схож с алгоритмом работы сортировки выбором.

1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2017, 15:33

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

В заданной последовательности поменять местами наименьший член с последним по порядку
Пусть дано натуральное число n и последовательность попарно различных...

Верно ли, что наименьший член последовательности по модулю больше единицы.
13. Дано натуральное n, и действительные a1, a2, …, an. Выяснить, верно ли, что...


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

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

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