Заполнить массив из 15 элементов целыми случайными числами из диапазона от 0 до 40. Вывести массив на экран и найти сумму элементов массива, минимальный элемент массива и количество чисел больше 10

program zz1;

const n = 15;

var i, s, k, min:integer; / / задаем переменные целого типа

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

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (41);

for i:=1 to n do / / выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

min:=10000;

for i:=1 to n do

begin

s:=s + m[i];

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

if m[i] > 10 then k:=k + 1;

end;

writeln (' сумма всех элементов массива = ', s);

writeln (' минимальный элемент массива = ', min);

writeln (' количество элементов массива больших 10 = ', k);

end.