Question

напишите программу вычисляющую среднее арифметическое пяти чисел фри паскал

Answer 1

Ответ:

var

 a,b,c,g,n: real;

begin

 write('Введите число a = ');

 readln(a);

 write('Введите число b = ');

 readln(b);

 write('Введите число c = ');

 readln(c);

 write('Введите число g = ');

 readln(g);

 write('Введите число n = ');

 readln(n);

 Writeln('Среднее арифметическое = ',(a+b+c+g+n)/5);

end.

Answer 2

var s,a,i: integer;

begin

s:=0;

for i:=1 to 5 do begin

write('введите ',i,' число: ');

readln(a);

s:=s+a;

end;

write('срзнач: ',s/5);

end.