Как сделать чтобы в приложении powerpoint, 1,4 слайд переключались в ручную а 2,3 по времени

Question

Информатика: Как сделать чтобы в приложении powerpoint, 1,4 слайд переключались в ручную а 2,3 по времени

DashaP2006 · Accepted Answer

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
var a:=ReadAllText('input.txt').ToIntegers;
Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
m:=a.Where(t->t>0).Average
end;

begin
var a:=ReadAllText('input.txt').ToIntegers;
var m:real;
avg(a,m);
Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.

MOGZ ответил