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.
Хорошо видно, что решение с функцией имеет явное преимущество.
10 = 3*3+3/3 (= 9+1)
8 = 3*3-3/3 (=9-1)
то, что находится в скобках писать не нужно
1слово-поле,код буквы п-10111111
2слово-озеро
3слово-лес
Отгадать оказалось легко внимательно читайте задания я то же не сразу разобралась
Решение показано в прилагаемом файле. Формулы в таблице:
в столбце G: =СУММ(B7:F7)
в столбце H: =ЕСЛИ(G7>=$B$1;"прошёл";"не прошёл")
в ячейке B2: =СЧЁТЕСЛИ(G7:G23;">="&$B$1)
в ячейке C3: =СЧЁТЕСЛИ(G7:G23;"<"&$B$1)
Ответ:149E
http://reshinfo.com/v_hestnadcatirichnuju_3.php?sn=5278&sys=10&x=30&y=6