Question

Определить среднее арифметическое двух чисел, если a положительное, в противном случае найти частное этих чисел.
Помогите пожалуйста, ДАЮ 90 БАЛЛОВ!!!

Answer 1

var a,b,c:integer;

begin

 Writeln('Введите два числа: ');

 Read(a,b);

 if a>0 then

   Writeln('Среднее арифметическое: ', (a+b)/2)

 else Writeln('Частность: ', a/b);

end.