массивы(Делфи)

[a1ertso]

Здравствуйте, скоро сессия и есть долг по информатике. Помогите пожалуйста.

Что-то наподобие примера:

PROGRAM Ivanov5;
{$APPTYPE CONSOLE}
USES
SysUtils;
CONST
n=5; // количество элементов массива
TYPE
ar=array[1..n] of real; // объявление типа массива
VAR
a:ar; // исходный массив А
s:real; // сумма отрицательных элементов
i:integer; // счетчик элементов
begin
// Ввод исходных данных
WriteLn('Type ', n, ' real elements of array:');
for i:=1 to n do
Read(a[i]);
// Выполнение задачи
s:=0; // начальное значение суммы
for i:=1 to n do // цикл перебора элементов массива
if a[i]<0 then // выборка отрицательных элементов
s:=s+a[i]; // суммирование
// Вывод результата
if s=0 then
WriteLn('There are NO negative elements')
else
WriteLn(' S=',s:8:4);
WriteLn('***** Press <ENTER> to finish *****');
Readln; // задержка экрана
Readln;
END.

1.Вычислить элементы массива :


1. Сформировать массив NS из номеров строк массива R, в которых имеются повторяющиеся значения:






===
по этой же задаче, другойвариант:
1.Найти произведение элементов массива A = {1, 3.5, 4, -0.8, 1.9, 5, 13}, удовлетворяющих условию , если С = 2, D = 10. Сформировать из этих элементов массив Z.

2. . В массиве Р(m,n) все элементы разделить на максимальный элемент k-го столбца: