Ради Христа ИНФОРМАТИКА 7 класс

Question

Информатика: Ради Христа ИНФОРМАТИКА 7 класс ​

SkyZee · 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.

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

Ради Христа ИНФОРМАТИКА 7 класс ​

MOGZ ответил