Массывы (Delphi 7)

[Elec92]

Задание:

Задан массив a=(a1,a2,....a n). из его элементов сформировать два массива b=(b1,b2,...b n/2) и c=(c1,c2,...c n/2). В массив "b" включить только чётные элементы массива "a", а в массив "c" - только нечётные. Найти произведения элементов "b" и "c".

Помогите пожалуйста

[Ybn2]

Тебе полностью программу, или кусочек кода, где вычисляется?

[Роман Романов]

Помогите решить
В заданном массиве размером N определить среднее значение его элементов, предварительно отбросив максимальный и минимальный по модулю элементы.

[Ybn2]

Сообщение от Роман Романов

Помогите решить

Какой язык и есть ли наработки?

[Niro]

for Роман Романов
Все простро - ищем максимальный и минимальный элементы

max:=abs(a[1]);
min:=abs(a[1]);
for i:=1 to n do
  if abs(a[i])>abs(max) then begin max:=a[i]; k:=k+1; end;
  if abs(a[i])<abs(min) then begin min:=a[i];  l:=l+1; end;

for i:=1 to n do
  if (a[i]<>min) or (i<>max) then s:=s+a[i];
  s:=s/(n-k-l)

кстати здесь учитывается и то, что максимумов может быть несколько ( в смысле например три единицы )
P.S. не проверял

[Elec92]

Тебе полностью программу, или кусочек кода, где вычисляется?

Желательно полностью...

Нароботок к сожаление нету, потому что в массивых пока что не все понимаю

[Ybn2]

Подожди 20 минут, я полностью сделаю!

[Роман Романов]

Плиииииз
Создать текст. Вывести на экран все слова, у которых есть двойные буквы (класс, группа и т.п.).

[Elec92]

Подожди 20 минут, я полностью сделаю!Подожди 20 минут, я полностью сделаю!

большое спасибо заранее)

[Ybn2]

Elec92;669898
Вот Ваша программа:

Проверяйте все ли правильно!

Да, там стоит ограничение, что n<=1000