Помогите решить две задачи с массивами

[SHiZiK]

Уже неделю бьюсь с массивами - ничего не получается, а понедельник уже зачет. Помогите кто чем может
1. Дана действительная квадратная матрица порядка N. Найти максимальный элемент среди элементов, расположенных ниже элементов главной диагонали.
2. Дана действительная квадратная матрица порядка N. Найти максимальный элемент среди элементов, расположенных ниже элементов главной диагонали.
P.S. Программуа должна быть написана в Delphi

[Карась]

Посмотрите первые 2 - 3 страницы этого раздела.. Уже обсуждалась такая задача.

Чем отличаются задачи 1 и 2 ?

Программуа должна быть написана в Delphi

Консоль?

[SHiZiK]

Извините ошибся.
2. Дан одномерный массив A длинной N. Определить первый максимальный элемент
массива. Напишите пожалуйсто прграмму. Очень прошу.

[puporev]

Задача №1.

program shizik1;
uses crt;
var n,i,j,max:integer;
    a:array[1..20,1..20] of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
max:=a[2,1];
for i:=2 to n do
for j:=1 to i-1 do
if a[i,j]>max then
  begin
    max:=a[i,j];
  end;
write('max=',max);
readln;
end.

Задача №2.

program mass2;
uses crt;
var n,i,max,imax:integer; a:array[1..50] of integer;
begin
  clrscr;
  write('n=');readln(n);
  randomize;
  for i:=1 to n do
     begin
        a[i]:= random(5);
        write(a[i],' ');
     end;
  readln;
  max:=a[1];imax:=1;
  for i:=2 to n do
    if a[i]>max then
       begin
         max:=a[i];imax:=i;
       end;
  write('perv max el=',max,' imax=',imax);
  readln;
  end.