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

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

15.10.2014, 22:05. Просмотров 949. Ответов 2
Метки нет (Все метки)

Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить: наименьший из элементов массива, принадлежащих отрезку [a, b];
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2014, 22:05
Ответы с готовыми решениями:

Найти произведение элементов массива, не принадлежащих отрезку [0; -5]
Найти число элементов массива, принадлежащих отрезку .массив состоит из 12 элементов.

Найти число элементов массива, принадлежащих отрезку [1;-5]
Ребята прошу прошения. Но мне опять нужна ваша помощь . Я очень признательна тем людям которые...

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

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

Подсчет количества различных элементов одномерного массива не принадлежащих отрезку [R,P]
помогите пожалуйста задачку решить:) Составить программу подсчета количества различных элементов...

2
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,833
Записей в блоге: 1
16.10.2014, 10:43 2
Лучший ответ Сообщение было отмечено Kongostin как решение

Решение

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 nmax=100;
Var C:array[1..nmax] of integer;
    i,min,n,a,b,k:integer;
Begin
    Randomize;
    Repeat
     write('Введите размерность: ');readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      C[i]:=random(31)-15;
      write(C[i]:4);
    End;
    writeln;
    write('Введите промежуток [a,b](a<b): ');readln(a,b);
    For i:=1 to n do
     if (a<=C[i])and(C[i]<=b) then 
     Begin
       inc(k);
       if k=1 then min:=C[i]
        else if C[i]<min then min:=C[i];
     End;
    if k>0 then writeln('Min из промежутка [',a,',',b,'] = ',min)
     else writeln('Нету элементов принадлежащих промежутку [',a,',',b,']');
    readln;
End.
1
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
16.10.2014, 13:59 3
CodeR, годное решение.
покажу ещё один вариант решение, когда можно обойтись без счётчика и без переменной min

Pascal
1
2
3
4
5
6
7
8
9
10
    write('Введите промежуток [a,b](a<b): ');readln(a,b);
    k:= -1; {индекс минимального элемента из заданного отрезка. изначально считаем, что такого нет}
    For i:=1 to n do
       if (a<=C[i])and(C[i]<=b) then 
         if k=-1 then k:=i
         else
            if C[i]<C[k] then k:=i;
 
    if k>0 then writeln('Min из промежутка [',a,',',b,'] = ', C[k])
    else writeln('Нету элементов принадлежащих промежутку [',a,',',b,']')
этот вариант, в приципе, ничем не хуже и не лучше вашего, просто он немного другой!
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2014, 13:59

Заменить все элементы массива А, не принадлежащих отрезку [1,3]
Помогите с решением пожалуйста) Я вот тут попробовал решить, но не получается) Задан...

В массиве найти и вывести на экран элементы массива, принадлежащих отрезку [0, 10]
В массиве найти и вывести на экран элементы массива, принадлежащих отрезку

Заменить все элементы, меньшие двух, нулями и вычислить сумму членов, принадлежащих отрезку [3; 7]
Всем привет. Помогите пожалуйста написать код. Задача следующая: Даны натуральное число n и...


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

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

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