Question

Помогите составить программу для нахождения среднего арифметического 4 чисел в паскале

Answer 1

uses crt;
var
i,y,x,z:integer;
n:single;
begin
clrscr;
writeln('Введите 4 числа');
readln(i,z,x,y);
n:=(x+y+z+i)/4;
writeln('Среднее= ',n:0:3);
readln();
end.

Answer 2

Для нахождения среднего арифметического четырех чисел в Паскале, вы можете использовать следующую программу:

program AverageCalculation;
var
  num1, num2, num3, num4: integer;
  average: real;
begin
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);
  
  average := (num1 + num2 + num3 + num4) / 4;
  
  writeln('Среднее арифметическое:', average:0:2);
end.

В этой программе мы объявляем четыре переменные `num1`, `num2`, `num3` и `num4`, которые будут использоваться для хранения введенных чисел. Затем мы считываем значения этих переменных с помощью `readln`. Далее мы вычисляем среднее арифметическое, складывая все четыре числа и деля сумму на 4. Результат сохраняется в переменной `average`. Наконец, мы выводим среднее арифметическое на экран с помощью `writeln`.

Вы можете запустить эту программу в среде разработки Паскаля или воспользоваться онлайн-компилятором для выполнения кода на Паскале.

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

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