Question

Введите с клавиатуры 6 чисел и определите их среднее арефметическое репит

Answer 1

Uses crt;vara,b,c,d,e,f:integer;g:real;beginwrite ('Введите числа a,b,c,d,e,f-');read (a,b,c,d,e,f);g:=(a+b+c+d+e+f);writeln ('Среднее арифметическое этих цифр=',g);end.

Answer 2

Uses crt;
const N=6;
var a, b, c, d, e,sum,f,j,i:real;
begin
repeat
writeln('Введите 6 чисел');
readln(a,b,c,d,e,f);
sum:=(a+b+c+d+e+f);
j:=sum/N;
writeln('Среднее арифметическое чисел = ',j);
writeln('Хотите повторить программу еще раз? Если да - нажмите 1 ,если нет - нажмите 2');
readln(i);
until i=2;
end.