Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Завтра экзамен!!Помогите пожалуйста составить программу!!
!Используя функцию или процедуру вычислить среднее арифметическое чисел X , Y, Z

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

Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write(Введите x,y,z: );readln(x,y,z);
P(x,y,z,c);
writeln(Среднее арифметическое = ,c);
End.