Ne 5. В таблице приведены запросы к поисковому серверу. Для каждого запроса указан его код - буква от А до Г. Расположите коды запросов слева
направо в порядке убывания количества страниц, которые нашёл поисковый
сервер по каждому запросу. По всем запросам было найдено разное
количество страниц.
Для обозначения логической операции «ИЛИ» в запросе используется
символ «», а для логической операции «И» — «&».
Код Запрос
А Мороз & Солнце & День & Чудесный
Б Мороз | Солнце | День | Чудесный
B Мороз & Солнце & Чудесный
Г Чудесный | (Мороз & Солнце & День)
Внимание! Если программа не работает, обновите версию!
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.
Хорошо видно, что решение с функцией имеет явное преимущество.