Составе программу найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае

Question

Оставить ответ

Знаете ответ?

Заполняя форму, вы принимаете условия пользовательского соглашения

Accepted Answer

Var a, b, c:integer;
begin
readln(a);
readln(b);
if a>0, b>0 then c:=(a+b) div 2;
writeln(c);
end.