отыскать сумму частей массива х = (3.5; -6.3; 2.1; 0.1; 5.1;

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] lt; 0.25) then s:=s + m[i];

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

end.