Question

Составить алгоритм 3х чисел Найти среднее арефмичиское !!!!!! Срочно !!! Прошу!!!

Answer 1

Var a,b,c,sred_A:real;

begin

Writeln('Привет,я-alconafft');

Writeln('Введи первое число');

readln(a);

Writeln('Введи второе число');

readln(b);

Writeln('Введи третье число');

readln(c);

sred_A:=a+b+c/3;

writeln('среднее арифметические равно ',sred_A);

end.