Составьте программу на языке паскаль для вычисления площади и периметра трапеции

Program z_1; var a,b,c,d,h,p: integer; s: real; begin       writeln ('введите стороны a, b, c, d и высоту h');     readln (a,b,c,d,h);   p: =a+b+c+d;   s: =(a+b)/2*h;   writeln ('периметр ', p, ', площадь ', s); end.

системный блок

 

если массив состоит из 10 элементов то код программы:

 

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;