Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.05.2019
Сообщений: 5
1

Дано масив чисел. Найти количество элементов масива, которые расположены между max и min элементами масива

27.05.2019, 09:26. Просмотров 554. Ответов 3


Помогите, пожалуйста, вычислить количество элементов между максимальным и минимальным элементами. Вот я нашла максимум и минимум, а дальше не знаю что делать.
Дано масив чисел. Найти количество элементов масива, которые расположены между max и min элементами масива


Дано масив чисел. Найти количество элементов масива, которые расположены между max и min элементами масива
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2019, 09:26
Ответы с готовыми решениями:

Массив: написать функцию, которая находит количество элементов массива, между min и max элементами
Доброго времени суток, помогите пожалуйста, необходимо написать функцию, которая находит количество...

Массив: написать программу, которая находит количество элементов массива, между min и max элементами
Доброго времени суток, помогите пожалуйста: необходимо Написать программу, которая считает...

Дан одномерный масив, найти суму чисел больше 5, найти среднее значение масива
Дан одномерный масив, найти суму чисел больше 5, найти среднее значение масива, найти количество...

Дан массив А(30). найти сумму и количество положительных элементов, расположенных между max и min
дан массив А(30). найти сумму и количество положительных элементов, расположенных между...

3
Модератор
62952 / 46963 / 32363
Регистрация: 18.05.2008
Сообщений: 113,804
27.05.2019, 09:39 2
Алинаша, А что, код приложить текстом никак? Или Вы думаете что легче переписывать его с картинки чем скопировать текст?

Добавлено через 1 минуту
А лучше просто приложить архив проекта.
0
0 / 0 / 0
Регистрация: 26.05.2019
Сообщений: 5
27.05.2019, 09:44  [ТС] 3
Delphi
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
37
38
39
procedure TForm1.btn2Click(Sender: TObject);
var i,j: Integer;
begin
  Randomize;
for i := Strngrd1.FixedRows to Strngrd1.RowCount-1 do
    for j := Strngrd1.FixedCols to Strngrd1.ColCount-1 do
      Strngrd1.Cells[j,i]:=inttostr(random(100));
      end;
 
procedure TForm1.btn1Click(Sender: TObject);
 
var i,j,a,c,k,max,min,imx,imn:integer;
    srd:double;
begin
k:=0;
srd:=0;
for i:=0 to Strngrd1.RowCount-1 do
for j:=0 to Strngrd1.ColCount-1 do
 begin
  val(Strngrd1.Cells[j,i],a,c);
  if c=0 then
   begin
    inc(k);
    srd:=srd+a;
    if k=1 then max:=a
    else if a>max then max:=a;
   end;
   begin
   inc(k);
    srd:=srd+a;
    if k=1 then min:=a
    else if a<min then min:=a;
   end;
 end;
 
edt2.Text:=inttostr(max);
edt3.Text:=IntToStr(min);
 
 end;
0
0 / 0 / 0
Регистрация: 26.05.2019
Сообщений: 5
27.05.2019, 09:51  [ТС] 4
8.rar
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2019, 09:51

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

Есть одномерный динамический массив, нужно найти произведение между min и max элементами.
Привет срочно нужно!!!!!!!!! Есть одномерный динамический массив нужно знайти прозведение между...

Найти номер макс. элемента масива и произведение элементов масива между 1-м и 2-м нулевыми элементами
В одномерном масиве,состоящем из н элементов,вычеслить номер макс. масива,и произведение элементов...

Обнулить элементы масива расположены между его минимальным и максимальным элементами
Помогите!!!!!!!!!! Дан масив размера N. Обнулить элементы масива расположены между его минимальным...

Между первым min и первым max элементами списка найти количество элементов меньших своего номера
Помогите с этой задачей,очень нужно,пожалуйста!!!!


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

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

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