Задачи на pascal, помогите решить.

[lunmed]

1. дан одномерный массив целых чисел. Сформировать новый массив, в который включить только те элементы, которые нахлдятся между наибольшим и наименьшим элементами старого массива. Подсчитать, сколько элементов будет в новом массиве.
2.Дан двумерный массив. Вычислить сумму элементов, лежащих на главной диагонале и сумму элементов, не лежащих на главной диагонали. Какая сумма больше?
3. Составить программу вычисления площади 5-и угольника заданного координатами вершин. Вычисление расстояния между двумя точками на плоскости(вершинами) оформить ввиде подпрограммы.
4. Составить программы с помощью которых:
- сформировать файл из записей, содержащих различные даты;

- исключить из этого файла все компоненты, содержащие весенние даты.

[alex_fcsm]

Сообщение от lunmed

1. дан одномерный массив целых чисел. Сформировать новый массив, в который включить только те элементы, которые нахлдятся между наибольшим и наименьшим элементами старого массива. Подсчитать, сколько элементов будет в новом массиве.

uses crt;
const n=20;
var i,j,min,max,x,y:integer;
    a,b:array[1..n] of integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i],' ');
 end;
writeln;
writeln('-----------');
max:=a[1];min:=a[1];x:=1;y:=1;
for i:=2 to n do
  if a[i]>max then begin
                    max:=a[i];
                    x:=i;
                   end
     else if a[i]<min then begin
                            min:=a[i];
                            y:=i;
                           end;
if y>x then begin
            max:=x;
            x:=y;
            y:=max;
            end;
Writeln('Find ',x-y-1,' elements');
 for i:=1 to x-y-1 do
    begin
     b[i]:=a[y+i];
     write(b[i],' ');
    end;
end.

[alex_fcsm]

Сообщение от lunmed

2.Дан двумерный массив. Вычислить сумму элементов, лежащих на главной диагонале и сумму элементов, не лежащих на главной диагонали. Какая сумма больше?

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,sumM,sumR:integer;


begin
clrscr;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
    begin
     a[i,j]:=random(100);
     write(a[i,j],' ');
    end;
  writeln;
 end;
 sumM:=0;sumR:=0;
for i:=1 to n do
 for j:=1 to n do
    if i=j then sumM:=sumM+a[i,j]
      else sumR:=sumR+a[i,j];
writeln;
{writeln('MainDiag: ',sumM);
writeln('Rest:',sumR ); }
if sumM<sumR then writeln('Rest elements')
   else writeln('Main diag');
end.

[lunmed]

Большое СПАСИБО!