Завтра экзамен!!Помогите пожалуйста составить программу!! !Используя функцию или процедуру вычислить среднее арифметическое чисел 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.
Мне надо и с функцией и с процедурой!
В условии к вашему заданию это нигде не написано! Написано "Используя функцию или процедуру", т.е. либо функция, либо процедура!
но вы и не то и не это не использовали.
подправил через процедуру)