Question

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

Answer 1

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.

Answer 2

Ответ:

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 3

Для вычисления среднего арифметического пяти чисел в Free Pascal, вам нужно запросить у пользователя ввод всех пяти чисел, затем сложить их и разделить на 5 (количество чисел). Вот пример программы:

pascalCopy code
program CalculateAverage;

var
  num1, num2, num3, num4, num5: Integer;
  average: Real;

begin
  writeln('Введите пять чисел:');
  readln(num1);
  readln(num2);
  readln(num3);
  readln(num4);
  readln(num5);

  average := (num1 + num2 + num3 + num4 + num5) / 5;

  writeln('Среднее арифметическое чисел: ', average:0:2);
end.

Пользователь будет приглашен ввести пять чисел, после чего программа вычислит и выведет среднее арифметическое с двумя знаками после запятой.