1) print (3+4-1) який результат виконання програм? 6 3+4 11 3+4-1 ( 3+4 ) 7 3+4 2)... сукупність алгоритмів - id1765349620200128 от Сергій2006SSS 28.01.2020 13:04

Question

Информатика: 1) print (3+4-1) який результат виконання програм? 6 3+4 11 3+4-1 ( 3+4 ) 7 3+4 2)... сукупність алгоритмів які виконуються комп ютером 3) що виведе цей код? a = 1 b=3 print ( b-a ) 2 1+3 b+a b-a a+b 4 нічого, код не дійсний БУДЬ ЛАСКА ДО ІТЬ ​

Сергій2006SSS · 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 ответил