Сформировать массив из 10 чисел, каждое из которых вычисляется случайным образом на промежутке от 0 до 12. Вычислить сумму элементов массива, которые больше 5. Язык Pascal

pascal

Объяснение:

const

 n = 10;

var

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

 i: integer;

 s: real;

begin

 for i := 1 to n do

 begin

   a[i] := random(12);

   Write(a[i],', ');

   if a[i] > 5 then s := s+ a[i];

 end;

 WriteLn;

 WriteLn('Сумма элементов, больших 5, равна ', s);

end.