Помогите пожалуйстьа решить несколько задач в Паскале (МАССИВЫ)

Ответить
VistBacK
Сообщения: 9
Зарегистрирован: 19 сен 2008, 09:59

Помогите пожалуйста решить несколько задач в Паскале (МАССИВЫ). Заранее спасибо!=)
Вот собственно и задачи:
1.В массиве A[1..n] определить три стоящих подряд числа, сумма которых максимальна. Вывести эту сумму,а найденные три числа заменить нулями.
2.Даны массивы A[1..n] и B[1..n], состоящее из целых чисел. Поставить сначала четные,а потом нечетные элементы.
3. Дан целочисленный сассив размером MxN. Найти среди максимальных элементов строк массива минимальный.
4. Найти максимальный элемент массива размером [n:m].
5. Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов.
Каждая задача в отдельной программе.
Заранее СПАСИБО!!!
Аватара пользователя
Vedrus
Сообщения: 39
Зарегистрирован: 27 сен 2007, 13:04

Какие свои идеи есть? Если нету - смотри приват.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

1.

Код: Выделить всё

sum:=0;
p:=1;
for i:=2 to N-2 do
  if a[p]+a[p+1]+a[p+2]<a[i]+a[i+1]+a[i+2] then p:=i;
writeln a[p]+a[p+1]+a[p+2];
for i:=p to p+2 do a[i]:=0;
4 - раздел алгоритмы, нахождение максимума
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить