Версия для печати темы

Автор: -malysh73- 12.10.2007 0:49

После максимального из чётных элементов вставить 0.

Автор: Tan 12.10.2007 2:27

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

Автор: -malysh73- 12.10.2007 18:15

Массив одномерный:
a: array [1..10] of integer.

Автор: мисс_граффити 12.10.2007 19:22

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

Автор: Гость 12.10.2007 19:35

А как проверить чётное число или нет?Если при этом использововать оператор if, то что конкретно писать после него?

Автор: Айра 12.10.2007 20:46

if (n mod 2 = 0) then

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

Автор: Гость 12.10.2007 21:26

Спасибо! Всё получилось!

Автор: Gorbusha(he) 16.10.2007 0:39

привет. спасите! незнаю куда обратиться.
помогите пожалуйста написать программы на языке Турбо Паскаль, дело все в том что их достаточно много.незнаю , писать ли вам или нет. надежда все-таки есть и я напишу :
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). найти среднеарифметическое элементов в каждой из строк этого массива.
институт, в котором я учусь называется МИЭТ (московский институт электронной техники - занимает третье место по россии)
и что самое главное - одно занятие пропустишь и всё! кирдык!
взаранее спасибо.

Автор: klem4 16.10.2007 1:38

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