Задание в турбо паскаль

[SJIAM]

Выполните эту лабораторную работу на основании лабораторной работы № 1. При выполнении создайте массив из n элементов (максимальное значение n = 15) для хранения указанных в задании данных. Текущее число элементов массива вводит пользователь. Массив необходимо заполнить случайными числами (диапазон и тип случайных чисел определите самостоятельно в зависимости от требований условий задания). Результат вычислений выведите на экран, используя форматный вывод. В программе используйте все три вида циклов. Вот первая лабороторная 4. Напишите программу, которая вычисляет площадь трапеции S=(a+b/2)*h , где a и b - длины оснований трапеции, h - высота трапеции.
Помогите пожалуйста с масивами в никакую..

[_-Re@l-_]

Выполните эту лабораторную работу на основании лабораторной работы № 1.

Э-э-э....Прямо сейчас начинать?
Свои наработки есть? Если да, выкладывайте, если нет - сюда.

[SJIAM]

Только первая)

Program ex_1;
  var b,a,h,s:real;
  begin
  writeln ('Enter A');
  Readln (A);
  Writeln ('Enter B');
  Readln (b);
  writeln ('Enter H');
  Readln (H);
  Begin
  S:=(A+B)*H/2;
  End;
  Writeln;
  Writeln ('S=',s:7:2);
  Readln;
  END.

[GetMax]

Заполнить и вывести массив можно так:

Var
   Mas:array[1..15] of Byte;
   i,k:Byte;
Begin
   Randomize;
   Readln(K);
   For i:=1 to K do
   Begin
      Mas[i]:=Random(50);
      Write(Mas[i]:3);
   End;
   Readln
End.

[SJIAM]

говорю же я с массивами в 0((((
можно написать как ето все вместе? пожайлуста(

Сообщение от _-Re@l-_

Э-э-э....Прямо сейчас начинать?
Свои наработки есть? Если да, выкладывайте, если нет - сюда.

а ето просто текст такой был( согласен плохо вышло))