1. Эта такая программа, которая необходима для работы компьютера(без него не работает)
2. Условно бесплатные - это бесплатные программы.
3. Свободно распространяемые - это такие программа которые распространяются бесплатно.
4. У лицензионного больше функций, полный доступ.
5. Недостаточность функций. Например, что то есть, но оно доступно только после активации лицензионного продукта
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.
Хорошо видно, что решение с функцией имеет явное преимущество.
5) Стоял красивый букет.
Принесли интересную книгу. Получали отличные знания
Как вариант. "Или" - разные преподаватели требуют по-разному. Как вариант еще сначала проверить А=В, если нет, то тр. не равн., если да, то проверять А=С, если нет, то тр. не равн., если да(и А=В, и А=С), то тр. равносторонний.
Можно заменить на
read(x1,y2,x3,x4);