Question

Вычислите среднее арифмитическое 7 введенных чисел(паскаль)срооочно❤❤❤❤❤заранее спасибо

Answer 1

var

a,b,c,d,e,f,g: integer;

sr_arf: real;

begin

write('Введите значение 1 числа: ');

read(a);

write('Введите значение 2 числа: ');

read(b);

write('Введите значение 3 числа: ');

read(c);

write('Введите значение 4 числа: ');

read(d);

write('Введите значение 5 числа: ');

read(e);

write('Введите значение 6 числа: ');

read(f);

write('Введите значение 7 числа: ');

read(g);

sr_arf:=(a+b+c+d+e+f+g)/7;

write('Ср.ариф. = ',sr_arf);

end.

Answer 2

Для вычисления среднего арифметического семи введенных чисел в Паскале, вам потребуется некоторый код на этом языке программирования. Ниже приведен пример программы на Pascal, которая позволит вам ввести семь чисел и вычислить их среднее арифметическое:

pascalCopy code
program CalculateAverage;
var
  i, sum, number: Integer;
  average: Real;
begin
  sum := 0;

  writeln('Введите 7 чисел:');
  for i := 1 to 7 do
  begin
    readln(number);
    sum := sum + number;
  end;

  average := sum / 7;

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

Скопируйте этот код в среду программирования Pascal (например, Lazarus или Turbo Pascal), запустите его и следуйте инструкциям, чтобы ввести 7 чисел. После ввода программой будет вычислено среднее арифметическое и выведено на экран.

Пожалуйста, обратите внимание, что синтаксис и функции языка Pascal могли измениться после момента моего обучения в сентябре 2021 года. Если возникнут какие-либо проблемы, попробуйте адаптировать код под текущую версию Pascal.