небольшие программки в delphi

[tec46]

По некоторым обстоятельствам( которые я не могу огласить) япропустил в универе месяц, и поэтому задолжал в универе три лабораторки (их мне нужно сдать уже во вторник). Меня небыло в универе, поэтому я не знаю теорию, её я как раз и буду учить до вторника. Поэтому я и решил пропросить тех кто хорошо разбирается в этом, я уверен что такие пустяковые задачки будут для вас совсем не проблемой.
ну в общем вот сами задания для написания программ:
1) дан массив из 15 целых чисел. Если минимальный или максимальный элемент равен 0, то обнулить элементы массива, предшествующие минимальному элементу в массиве.
2) Дана вещественноая матрица размером NxM. Определить числа B(1),B(2),...,B(m), равные среднему арифметическому значению максимального и минимального элементов каждого столбца.
3) тут присутствуют формулы, поэтому пришлось залить файл http://moto-russ.ru/Untitled03.rar
было бы очень не плохо если было и фото формы получившихся программ.
Заранее огромное спасибо за помощь))) буду очень благодарен каждому)))

[Tony Parker]

1) дан массив из 15 целых чисел. Если минимальный или максимальный элемент равен 0, то обнулить элементы массива, предшествующие минимальному элементу в массиве.

Пусть a - заданный массив

var 
  min_idx, max_idx: integer; {номера мак и мин элементов}
  i: integer;
begin
  min_idx:= 1;
  max_idx:= 1;

  { пробегаем массив, обновляя мак и мин }
  for i:= 2 to 15 do begin
    if a[i] < a[min_i] then min_i:= i;
    if a[i] > a[max_i] then max_i:= i;
  end;

  if (a[min_i] = 0) or (a[max_i] = 0) then begin
    { обнуляем все элементы до минимального }
    for i:= 1 to min_i-1 do a[i]:= 0; 
  end;
end.

[Tony Parker]

2) Дана вещественноая матрица размером NxM. Определить числа B(1),B(2),...,B(m), равные среднему арифметическому значению максимального и минимального элементов каждого столбца

Пусть А - данная матрица

var
  i, j, min_idx, max_idx: integer; { счетчики для столбцов/строк и номера мин и макс элементов в столбце }
begin
  { идем подряд по столбцам матрицы А }
  for i:= 1 to M do begin
    { ищем макс и мин в столбце }
    min_idx:= 1;
    max_idx:= 1;
    for j:= 1 to N do begin
       if A[j, i] < A[j, min_idx] then min_idx:= i;
       if A[j, i] > A[j, max_idx] then max_idx:= i;
    end;
    
    { считаем их среднне арифм и записываем в B(i) }
    B[i]:= (A[j, min_idx] + A[j, max_idx]) / 2;
  end;
end.

[tec46]

спасибо огромнейшеее)))
еще одна осталась только(

[tec46]

ну кто нибудь!!!!