Вещественный массив из 30 элементов инциализируется случайными значениями из диапазона от - 20 до +80, написать программу которая находит и выводит на экран минимальное значение из элементов массива

program mass_maxnech_kolkrat5;

const n=30;

var

i:integer;

m:real;

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

begin

m:=81;

for i:=1 to n do

begin

a[i]:= random(101)-20;

write(a[i],' ');

if (a[i]<m) then m:=a[i];

end;

writeln;

writeln('Минимальный элемент=',m);

readln;

end.

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);