Составить программу перевода (в паскале) радианной меры угла в градусы, минуты и секунды.

Program convert; var  num: real; result: real; begin  write('введи значение в радианах: ');   readln(num);   result: = num * 57.29;   writeln('градусы: ',result);   result: = num * 3437.75;   writeln('минуты: ',result);   result: = num * 206264.99;   writeln('секунды: ',result); end.

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

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;