Страница 1 из 1

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

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

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

Добавлено: 10 окт 2008, 03:02
Vedrus
Какие свои идеи есть? Если нету - смотри приват.

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

Добавлено: 11 окт 2008, 12:19
Хыиуду
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 - раздел алгоритмы, нахождение максимума