До ть дуже Задача “Кімната”. Написати код програми, яка обчислить площу та периметр кімнати.
Вказівка: Вхідні дані: довжина кімнати (х)
ширина кімнати (y)
Вихідні дані: площа кімнати (s)
периметр кімнати (p)
2.
Задача "Кафе”. Троє друзів отримали в кафе рахунок на суму n гривень, який вони вирішили розділити порівну. Скільки повинен заплатити кожен з них?
Вказівка: Вхідні дані: сума в рахунку (n)
Вихідні дані:заплатить кожен (v)
Внимание! Если программа не работает, обновите версию!
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.
Хорошо видно, что решение с функцией имеет явное преимущество.