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

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

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

 
 Ответить  Открыть новую тему 
> помогите решить задачу на массивы
сообщение
Сообщение #1


Гость






После максимального из чётных элементов вставить 0.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

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

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


Какой массив ? Как заполняется ?


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Массив одномерный:
a: array [1..10] of integer.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


максимум:=-MaxInt
номермаксимума:=0
идешь по массиву. и проверяешь каждое число - если оно четное и больше максимума, запоминаешь его само и его номер.
потом если номермаксимума<>0, то a[номермаксимума+1]:=0
хотя... смотря что понимается под вставить....


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






А как проверить чётное число или нет?Если при этом использововать оператор if, то что конкретно писать после него?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

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

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


if (n mod 2 = 0) then

Если остаток от деления на 2 равен нулю, то число четное))
Еще можно использовать функцию odd(n): true, если нечетное и false, если четное..

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Спасибо! Всё получилось!
give_rose.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





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

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


привет. спасите! незнаю куда обратиться.
помогите пожалуйста написать программы на языке Турбо Паскаль, дело все в том что их достаточно много.незнаю , писать ли вам или нет. надежда все-таки есть и я напишу :
1. задано натуральное число (а*а)/2 если a двухзначное и просто вывести a в противном случае. число а вводиться с клавиатуры.
2. введите два числа и искать их частное, до тех пор, пока первое число не будет введено равным 0. введите два числа и искать их сумму до тех пор, пока она не будет равна нулю.
3. введите два числа и искать их разность до тех пор, пока последнее число не будет равным нулю. введите два числа и искать их произведения до тех пор, покаоно не будет равно нулю.
4.ввести два числа и искать их разницу до тех пор, покавведенные числа не будут равными.ввести два числа и выводить их на экран до тех пор, пока введенные числа не будут равными.
5. ввести два символаи выводить их на экран до тех пор, пока последним не будет введен пробел. ввести два числаи выводить их на экран до тех пор, пока последнее число не будет введено нечетным
6. ввести два символа и выводить их на экран до тех пор, пока первым не будет введен пробел. вводить два числа и выводить их на экран до тех пор, пока первое не будет введено нечетным
7. ввести три числа и искать их среднеарифметическое до тех пор пока последнее число не будет введено равным нулю. ввести три числа и искать их среднегеометрическое значение до тех пор, пока первое число не будет введено равным нулю
8. ввести три числа и искать их среднеарифметическое до тех пор покавторое число не будет введено равным нулю. ввести три числа и искать их среднегеометрическое, до тех пора пока последнее число не будет введено равным одному.
9. задать целочисленный массив B[1..15] . найти максимальный элемент в массиве
10. задан массив C[1..12] . найти сумму положительных элементов
11. дана матрица размером N*N (N<10). найти среднеарифметическое элементов в каждой из строк этого массива.
институт, в котором я учусь называется МИЭТ (московский институт электронной техники - занимает третье место по россии)
и что самое главное - одно занятие пропустишь и всё! кирдык!
взаранее спасибо.

Сообщение отредактировано: Gorbusha(he) -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

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

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


Gorbusha(he) Ты бы правила для начала почитал, одна тема - одна задача, это во-первых, во-вторых - в чужих темах свои вопросы задавать не нужно, ну и за тебя весь этот хлам решать никто не будет, пользуйся поиском, создавай отдельные темы, задавай конкретные вопросы по реализации или по составлению алгоритма.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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