Составить программу на языке Паскаль для определения среднего арифметического двух чисел a и b, если a положительное и частное (a/b) в противном случае. ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!!!!
Ответ:
program f;
var a,b,c,d:real;
begin
writeln('Введите два числа');
readln(a,b);
c:=(a+b)/2;
d:=a/b;
if a>0 then writeln(c)
else writeln(d);
end.
Объяснение: