Question

Создать программу на языке паскаль, определяющую среднее значение оценок за первую четверть в 8Ж классе

Answer 1

Ответ: type my_array = array[1..20] of integer;

procedure input_array(var c: my_array; n: integer);

begin

for var i:= 1 to n do

read(c[i]);

end;

procedure count_array(var c: my_array; n: integer);

begin

var d: integer;

var x: real;

for var i:= 1 to n do

begin

d:= d + c[i];

x:= d/n;

end;

writeln(x);

end;

begin

var a: my_array;

var size: integer;

read(size);

input_array(a, size);

count_array(a, size);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая вычисляет среднее значение оценок за первую четверть в 8-м классе:

pascalCopy code
program Среднее_значение_оценок;

var
  Оценка, Сумма: real;
  Количество_учеников, i: integer;

begin
  // Инициализация переменных
  Сумма := 0;
  Количество_учеников := 0;

  // Ввод оценок и вычисление суммы
  writeln('Введите оценки учеников. Для завершения введите 0.');
  repeat
    write('Оценка ученика (0 для завершения): ');
    readln(Оценка);
    
    if Оценка <> 0 then
    begin
      Сумма := Сумма + Оценка;
      Количество_учеников := Количество_учеников + 1;
    end;
  until Оценка = 0;

  // Проверка наличия данных
  if Количество_учеников > 0 then
  begin
    // Вычисление и вывод среднего значения
    writeln('Среднее значение оценок: ', Сумма / Количество_учеников:0:2);
  end
  else
    writeln('Нет данных для вычисления среднего значения.');
end.

Эта программа запрашивает оценки учеников и вычисляет среднее значение, игнорируя ввод нулевой оценки для завершения ввода. Результат выводится на экран.