3. Дан массив вещественных чисел из 8 частей.Отыскать сумму частей, которые

1)
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!

Begin
var a:= readarrReal('Введите массив', readInteger('Введите кол-во элементов массива'));
Writeln(a);
Writeln(a.where(t -gt; t gt; 14).Sum);
end.

2)
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!

Begin
var a:= readarrReal('Введите массив', readInteger('Введите кол-во частей массива'));
Writeln(50 lt; a.where(t -gt; t gt; 14).Sum?'YES':'NO');
end.

Var x :array[0..7] of integer;
i, sum:integer;
begin
for i:=0 to 7 do begin
readln(x[i]);
if (x[i]gt;14) then
sum:=sum+x[i];
end;
Writeln(sum);
end.

-------------------------------

var x :array[0..7] of integer;
i, sum:integer;
begin
for i:=0 to 7 do begin
readln(x[i]);
if (x[i]gt;14) then
sum:=sum+x[i];
end;
if (sumgt;50)then
write('true')
else
write('false');
end.