Question

3. Дан массив вещественных чисел из 8 элементов. Найти сумму элементов, которые больше 14. 4. Изменить предыдущую программу, так чтобы она выясняла, верно ли, что полученная сумма больше 50.

Answer 1

Var x :array[0..7] of integer;
i, sum:integer;
begin
for i:=0 to 7 do begin
readln(x[i]);
if (x[i]>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]>14) then
sum:=sum+x[i];
end;
if (sum>50)then
write('true')
else
write('false');
end.

Answer 2

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

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

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

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