Найдите площадь равнобедренной трапеции с основанием a и b и углом a при большем основании а

Найти площадь равнобедренной трапеции с основанием а и в и углом при большом основании с  var   a, b, c, h, s, tg : double; begin   read (a, b, c);   tg : = sin (c * pi / 180) / cos (c * pi / 180); //функции принимают углы в радианах   h : = tg * abs(a - b) / 2;     s : = h * (a + b) / 2;   writeln (s); end. 

ответ: Программа выполняет рандом массива

Объяснение:

const N = 10; //Переменная которая содержит число 10

var //переменная для массива

arr: array[1..N,1..N] of integer; //массив

max: integer;  

i,j: byte;// переменные

begin //конец цикла

randomize; //рандом

for i:=1 to N do begin //цикл  

for j:=1 to N do begin //цикл

arr[i,j] := random(1000); // рандом всего массива по циклу  

write(' |',arr[i,j]:3,'| '); //вывод текста

end;//конец  

writeln; //переброс на следующую строку

end;//конец

for i:=1 to N do //цикл

write(' ----- '); //вывод строки

writeln; //переброс на следующую строку

for j:=1 to N do begin //цикл

max := arr[1,j]; // запись цикла

for i:=2 to N do //цикл

if arr[i,j] > max then //проверка если массив больше максимального  

max := arr[i,j]; // запись массива

write(' ',max:3,' '); //вывод результата

end; //конец

writeln; //переброс на следующую строку

end." //конец кода

Pascalabc.net 3.2 uses   graphabc; begin   var w: =window.width;   var h: =window.height;   var x0: =w div 2 -1;   var y0: =h div 2 -1;   setcoordinateorigin(x0,y0);   var k: =h/w;   for var x: =0 downto -x0 do begin       var y: =trunc(k*x);       brush.color: =clred;       pen.color: =clred;       circle(x,y,10);       sleep(50);       brush.color: =clwhite;       pen.color: =clwhite;       circle(x,y,15)       end; end.