Помогите пожалуйста с заданиями по Pascal

> До меня до сих пор не дошло как реализовать одномерные массивы.. .
Например, так:

{ Задача № 5 }
var
    a: array [1..100] of integer; { объявим массив заведомо большего размера }
    n, t, c: integer; { n - "рабочий" размер массива, t - используется при удалении, с - счетчик }
    m: real; { среднее значение }

begin
    { запрос количества элементов в массиве }
    write('размер массива (<= 100)? ');
    readln(n);
    { а здесь можно сделать проверку, что введенное число действительно меньше или равно 100 }
    { выдать сообщение об ошибке ввода, если это не так и завершить программу }
    { ...}

    { мне лень вводить элементы, поэтому заполню массив случайными числами }
    randomize;
    writeln('исходный массив: ');
    for c := 1 to n do begin
        a[c] := random(51) - 20;
        write(a[c], ' ');
    end;
    writeln;

    { подсчитать среднее: }
    { сначала сумму всех элементов }
    for c := 1 to n do m := m + a[c];
    { потом поделить на количество элементов }
    m := m / n;
    writeln('среднее: ', m:0:3);

    { теперь нужно удалить элементы, алгоритм прост как три рубля: }
    for c := 1 to n do
        if abs(a[c]) > m then begin
            inc(t);
            a[t] := a[c];
        end;
    n := t;

    { осталось только вывести результат }
    writeln('преобразованный массив: ');
    for c := 1 to n do write(a[c], ' ');

    { ПРОФИТ! }
    readln;
end.



> короче надо код программы и алгоритм решения.
А ты сам пытался?

> Помогите пожалуста кто чем сможет.
Собственно, вот. Другие задания попробуй выполнить сам.

Одномерный массив A:array [1..100] of integer;
Перебор элементов массива for i:=1 to N do

ЧТОБЫ СТАЛО ПОНЯТНО СТРОЧКА (УПРОЩЕННО) ОДНОМЕРНЫЙ МАССИВ, А СТРАНИЦА ДВУМЕРНЫЙ.
ДАЛЬШЕ ВСЕ ПРОСТО.
ГЛАВНЫЙ СПОСОБ ОБРАБОТКИ МАССИВОВ ПОКАЗАЛ УВАЖАЕМЫЙ ИМОИЛАЙЗЕР

если не можешь сам, предлагай деньги
на твоей школе написано
решу за деньги?? ?
если нет то на заборе написано
почему я должен человека денег лишать?
правильно - если сам их получу