IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массивы, Найти мах и мин элементы.Определить кол-во элементов.
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской
Реальное имя: Ваня

Репутация: -  0  +


В одномерном массиве из N элементов найти максимальный Max и минимальный Min элементы. Заменить все элементы,меньшие значения (Max-Min)/2 нулями. Определить количество таких элементов.

Сообщение отредактировано: Beseech -


--------------------
Skateboarding is not a crime
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


Цитата
Заменить все элементы,меньшие значения (Max-Min)/2 нулями. Определить количество таких элементов.

k;=0;
for i:=1 to N do
if a[i]< ((Max-Min)/2) then
begin
a[i]:=0;
inc(k);
end;

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской
Реальное имя: Ваня

Репутация: -  0  +


Адель можно попросить написать 1 раз полное решение задачи такого типа,я вообще ненаю почему мне такие задачи задали,нам не обьясняли как их решать! 1 напиши плиз полностью а с остальными думаю разберусь)))
Заранее спс


--------------------
Skateboarding is not a crime
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Не годится.
Одномерный массив N - не добавляет информации, да и вообще не по-русски..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской
Реальное имя: Ваня

Репутация: -  0  +


Ужас)))
Какие вы строгие)
Щас че нить придумаю) blum.gif

Добавлено через 6 мин.
Уважаемый администратор а теперь вы можете открыть ответы в моих темах? unsure.gif
Мне задачи надо сделать unsure.gif


--------------------
Skateboarding is not a crime
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 42
Пол: Мужской
Реальное имя: Ваня

Репутация: -  0  +


Адель плиз напиши 1 задачку такого типа полностью,я просто ненаю как такие решать...че нам вообще их задали,непойму nea.gif
Заранее благодарен


--------------------
Skateboarding is not a crime
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


var
arr: array[1..100] of Integer;
k,n,max,min,i: Integer;
begin
k:=0;
writeln('Enter a size of array:');
readln(n);

for i:=1 to n do readln(arr[i]);

min:=arr[1]; max:=arr[1];

for i:=1 to n do if (arr[i]>max) then
max:=arr[i] else if (arr[i]<min) then
min:=arr[i];

for i:=1 to n do
if arr[i] < ((Max-Min)/2) then
begin
arr[i]:=0;
inc(k);
end;

writeln(k);
readln
end.


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 0:42
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name