найти сумму элементов массива х = (3.5; - 6.3; 2.1; 0.1; 5.1; - 2.1), значения которых меньше 0.25 к данному заданию составить алгоритм и написать программу на языке Pascal

program zz1;

const n = 6; / / задаем количество элементов в массиве

m:array [1 ... n] of real = (3.5, - 6.3, 2.1, 0.1, 5.1, - 2.1); / / описываем массив и задаем значение его элементов

var i:integer; / / задаем переменную целого типа

s:real; / / задаем переменную не целого типа

begin

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

write (m[i],' ');

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

for i:=1 to n do

if (m[i] < 0.25) then s:=s + m[i];

writeln (' сумма элементов меньших заданного числа = ', s); / / выводим ответ

end.