Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
SerGood
0 / 0 / 0
Регистрация: 02.10.2015
Сообщений: 3
1

В одномерном массиве найти индекс и значение элемента, которое ближе всего к значению -5

17.10.2015, 22:38. Просмотров 346. Ответов 4
Метки нет (Все метки)

Всем доброго дня, нужна помощь, я в паскале только на азах, а девушке задали задание что я, что она в нем полный ноль. Помогите если не трудно. Вот само условие Задание: "В одномерном массиве найти индекс и значение элемента, которое ближе всего к значению -5"
Заранее спасибо за ваши ответы)

Добавлено через 7 минут
Забыл одно условие : В одномерном массиве найти индекс и значение элемента,у которого непарный индекс и которое ближе всего к значению -5
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2015, 22:38
Ответы с готовыми решениями:

В массиве найти два элемента среднее арифметическое которых ближе всего к заданному значению
Дано действительное число х и массив A . В массиве найти два элемента, среднее арифметическое...

Определить индекс элемента, находящийся ближе всего по значению к заданному числу.
1. Дан одномерный массив. Определить индекс элемента, находящийся ближе всего по значению к...

Найти среднее арифметическое в массиве, которое ближе всего к X
Прошу помощи! Задача звучит так: Дано действительное число X и массив A, содержащий N значений. В...

Найти в массиве элемент, который ближе всего к M, и его индекс
Дан одномерный массив А из N элементов и целое число M. Найти элемент и его индекс, который ближе...

4
RossWales
4 / 4 / 4
Регистрация: 12.05.2015
Сообщений: 40
18.10.2015, 01:34 2
А как задаётся массив ? Руками должны вводить или можно случайными числами заполнить?

Добавлено через 23 минуты
Вот для начала, над остальными условиями нужно подумать.

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
const
  Etalon = -5;
 
var
  masiv: array[1..20] of integer;
  i, k: integer;
 
begin
  randomize;
  k := 1;
  Writeln('Массив:');
  for i := 1 to 20 do
  begin
    masiv[i] := random(21) - 10;
    Write(masiv[i], ' ');
  end;
  Writeln();
  for i := 1 to 20 do
  begin
    k := i;
    if (masiv[i] = etalon) and ((k mod 2) = 0) then
      Writeln('B массиве есть число,которое = -5 с индексом: ', k)
  else
    {Место для остальных условий}
  end;
end.
0
Puporev
18.10.2015, 08:01
  #3

Не по теме:

Цитата Сообщение от SerGood Посмотреть сообщение
а девушке задали задание
Телефон девушки дай...

0
SerGood
0 / 0 / 0
Регистрация: 02.10.2015
Сообщений: 3
18.10.2015, 10:54  [ТС] 4
В самом условии не написано какой необходимо ввод. Скорей всего случайными числами)
0
кот Бегемот
Платежеспособный зверь
8624 / 4046 / 1577
Регистрация: 28.10.2009
Сообщений: 10,741
18.10.2015, 12:21 5
RossWales, это, конечно, лажа.
Абсолютно не важно, как задается массив.
Проходя по нему, находим модуль разности между a[i] и -5 и ищем минимум этого модуля, запоминая минимум и индекс.
Всё.
0
18.10.2015, 12:21
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2015, 12:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Найти число, которое «ближе всех» к среднему арифметическому в одномерном массиве
Добрый день, мое задание: Требуется разработать программу, которая: 1) обеспечивает ввод n...

В массиве найти два элемента, среднее арифметическое которых ближе всего к t
дан массив действительных чисел B(n) и действительное число t. В массиве B найти два элемента,...

В массиве найти два элемента, среднее арифметическое которых ближе всего к X
Даны действительное число X и массив A. В массиве найти два члена среднее арифметическое которых...


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

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

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