Сформировать массив из 25 случайных чисел в диапазоне от 40 до 110.Найти сумму всех чисел которые меньше 60.

Программа:

Pascal:

var

 arr: array[1..25] of integer;

 sum, i: integer;

begin

 for i := 1 to 25 do begin

   arr[i] := random(40, 110);

   if arr[i] < 60 then sum := sum + arr[i];

 end;

 writeln(arr, #10, sum);

end.