Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Vomal
0 / 0 / 0
Регистрация: 17.10.2017
Сообщений: 2
#1

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

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

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

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

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

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

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

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

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

2
Ivandur
193 / 376 / 66
Регистрация: 11.08.2016
Сообщений: 809
17.10.2017, 14:58 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
a)
Pascal
1
2
3
4
minx:=a[1];
for i:=2 to n do
   if a[i]>minx then
      minx:=a[i];
1
Volobuev Ilya
C#
135 / 110 / 48
Регистрация: 25.07.2014
Сообщений: 2,174
Записей в блоге: 2
17.10.2017, 15:33 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Перевести на другой диалект с 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
Привет! Вот еще темы с ответами:

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

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

Для двух массивов получите сумму попарных произведений их членов (скалярное произведение) - Pascal
Для двух массивов получите сумму попарных произведений их членов (скалярное произведение).

Найти наименьший элемент матрицы и от элементов всех столбцов, за исключением первого, вычесть наименьший - Turbo Pascal
Двумерные массивы. Ввести матрицу А размером m*n, найти наименьший элемент и от элементов всех столбцов, за исключением первого, вычесть...


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

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

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