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

@МоркоФкА · Регистрация: 16.09.2009

Author24 — интернет-сервис помощи студентам

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

@denisneposeda · 20.10.2010, 17:46

МоркоФкА, ну найти min и max....а вот не понятно, получается конечная матрица будет состоять только из максимальных элементов?????

@МоркоФкА · 20.10.2010, 18:00 **[ТС]**

нет
сначала одна программа потом другая)

@denisneposeda · 20.10.2010, 20:14

МоркоФкА, нет я имел ввиду, что на выводе будет матрица и вес элементы равны max?

@WatsOne · 20.10.2010, 20:17

denisneposeda, смотри есть какая то матрица 1 2 3 4 5 6
вычислил максимум - это 6, далее запрашиваешь числа с клавиатуры, ищещь в массиве и заменяешь на 6, так если я введу 2 и 4 то конечный массив будет 1 6 3 6 5 6

@denisneposeda · 20.10.2010, 21:04

WatsOne, а сколько будет введенных чисел?

@SuPeR XaKer · 20.10.2010, 21:37

Pascal

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.

@denisneposeda · 20.10.2010, 21:56

SuPeR XaKer, автор темы писал, что ему не одно число нужно заменить максимумом...а может и не сколько, почитай выше сообщения ))) допиши сколько вводить еще нужно ))

@SuPeR XaKer · 20.10.2010, 22:07

Pascal

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.

минимум сама найдёт знак изменит в условии и переменные другие

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

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

Решение

Решение

@МоркоФкА 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 34
		1
	Найти количество элементов массива, равных минимальному 20.10.2010, 17:45. Показов 6070. Ответов 8 Метки нет (Все метки) помогите в одномерном массиве найти количество элементов равных минимальному и заменить числа введенные с клавиатуры на максимальное! помогите пожалуйста 0

@denisneposeda 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

@denisneposeda 46 / 46 / 36 Регистрация: 18.10.2010 Сообщений: 212
	20.10.2010, 20:14	4
	МоркоФкА, нет я имел ввиду, что на выводе будет матрица и вес элементы равны max? 0

@WatsOne 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

@denisneposeda 46 / 46 / 36 Регистрация: 18.10.2010 Сообщений: 212
	20.10.2010, 21:04	6
	WatsOne, а сколько будет введенных чисел? 0

@denisneposeda 46 / 46 / 36 Регистрация: 18.10.2010 Сообщений: 212
	20.10.2010, 21:56	8
	SuPeR XaKer, автор темы писал, что ему не одно число нужно заменить максимумом...а может и не сколько, почитай выше сообщения ))) допиши сколько вводить еще нужно )) 0

	20.10.2010, 22:07