0 / 0 / 0
Регистрация: 16.09.2009
Сообщений: 34
1

Найти количество элементов массива, равных минимальному

20.10.2010, 17:45. Показов 5871. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите в одномерном массиве найти количество элементов равных минимальному и заменить числа введенные с клавиатуры на максимальное! помогите пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2010, 17:45
Ответы с готовыми решениями:

Найти количество элементов массива, равных среднему арифметическому первого и последнего элементов
Найти количество элементов массива, равных среднему арифметическому первого и последнего элементов...

Найти количество элементов массива, равных нулю
Составить алгоритм и программу, которая в одномерном массиве, состоящем из n вещественных...

Найти количество элементов массива, равных нулю
в одномерном массиве состоящем из n вещественных элементов вычислить: 1. Количество элементов...

Найти количество элементов массива, равных 5 и стоящих на нечётных номерах
Дан массив из 100 целых чисел. Найти количество элементов равных 5 и стоящих на нечетных номерах

8
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
20.10.2010, 17:46 2
МоркоФкА, ну найти min и max....а вот не понятно, получается конечная матрица будет состоять только из максимальных элементов?????
0
0 / 0 / 0
Регистрация: 16.09.2009
Сообщений: 34
20.10.2010, 18:00  [ТС] 3
нет
сначала одна программа потом другая)
0
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
20.10.2010, 20:14 4
МоркоФкА, нет я имел ввиду, что на выводе будет матрица и вес элементы равны max?
0
36 / 37 / 13
Регистрация: 10.10.2010
Сообщений: 115
20.10.2010, 20:17 5
denisneposeda, смотри есть какая то матрица 1 2 3 4 5 6
вычислил максимум - это 6, далее запрашиваешь числа с клавиатуры, ищещь в массиве и заменяешь на 6, так если я введу 2 и 4 то конечный массив будет 1 6 3 6 5 6
0
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
20.10.2010, 21:04 6
WatsOne, а сколько будет введенных чисел?
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
20.10.2010, 21:37 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Uses
 CRT;
Var
 a:array[1..20] of integer;
 i,n,imax,max,k,kol:integer;
begin
ClrScr;
{ïîìîãèòå â îäíîìåðíîì ìàññèâå íàéòè êîëè÷åñòâî ýëåìåíòîâ ðàâíûõ ìèíèìàëüíîìó}
write('Ââåäèòå êîë-âî ýëåìåíòîâ: ');
readln(n);
writeln('Èñõîäíûé ìàññèâ: ');
randomize;
max:=a[1];
imax:=1;
kol:=0;
 for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
   if a[i]>max then
   begin
    max:=a[i];
    imax:=i;
   end;
 end;
writeln;
 for i:=1 to n do
  if a[i]=max then
   inc(kol);
writeln('Max[',imax,']:=',max);
writeln('Kol:=',kol);
{çàìåíèòü ÷èñëà ââåäåííûå ñ êëàâèàòóðû íà ìàêñèìàëüíîå}
write('Ââåäèòå K: ');
readln(k);
 for i:=1 to n do
  if a[i]=k then
  begin
   a[i]:=max;
  end;
writeln('Ðåçóëüòèðóþùèé ìàññèâ: ');
 for i:=1 to n do
 begin
  write(a[i]:3);
 end;
readkey;
end.
0
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
20.10.2010, 21:56 8
SuPeR XaKer, автор темы писал, что ему не одно число нужно заменить максимумом...а может и не сколько, почитай выше сообщения ))) допиши сколько вводить еще нужно ))
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
20.10.2010, 22:07 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Uses
 CRT;
Var
 a,k:array[1..20] of integer;
 i,n,j,imax,max,kol:integer;
begin
ClrScr;
{ïîìîãèòå â îäíîìåðíîì ìàññèâå íàéòè êîëè÷åñòâî ýëåìåíòîâ ðàâíûõ ìèíèìàëüíîìó}
write('Ââåäèòå êîë-âî ýëåìåíòîâ: ');
readln(n);
writeln('Èñõîäíûé ìàññèâ: ');
randomize;
max:=a[1];
imax:=1;
kol:=0;
 for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
   if a[i]>max then
   begin
    max:=a[i];
    imax:=i;
   end;
 end;
writeln;
 for i:=1 to n do
  if a[i]=max then
   inc(kol);
writeln('Max[',imax,']:=',max);
writeln('Kol:=',kol);
{çàìåíèòü ÷èñëà ââåäåííûå ñ êëàâèàòóðû íà ìàêñèìàëüíîå}
for j:=1 to 2 do
begin
write('Ââåäèòå K: ');
readln(k[j]);
end;
for j:=1 to 2 do
 for i:=1 to n do
  if a[i]=k[j] then
  begin
   a[i]:=max;
  end;
writeln('Ðåçóëüòèðóþùèé ìàññèâ: ');
 for i:=1 to n do
 begin
  write(a[i]:3);
 end;
readkey;
end.
минимум сама найдёт знак изменит в условии и переменные другие
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2010, 22:07
Помогаю со студенческими работами здесь

Составить программу, которая находит количество элементов, равных первому элементу, и количество элементов, равных последнему, в массивах X(N) и Y(M).
Составить программу, которая находит количество элементов, равных первому элементу, и количество...

Вычислить количество элементов массива, равных заданному числу, и произведение элементов массива с чётными номерами
а). Вычислить количество элементов массива А(20) равных заданному числу Х. б). Вычислить...

количество элементов массива,равных 0.
В одномерном массиве,состоящем из n вещественных элементов,вычислить: 1)количество элементов...

Количество элементов массива равных 5
В массиве G(k) (k=1,10) найти количество N элементов равных 5. Прошу помочь т.к задача...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru