Question

Дана программа, содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить правильный вариант программы. Определить среднее геометрическое элементов набора данных, полученных случайным образом и содержащего положительные числа. procedure solution(n: byte; var __: double); var i: byte; a: integer; begin s := 1; for i := 1 to n do begin a := 1 + random(21); write(a:5); s:=s* a end; s:=power(s, 1/n); writeln end; var n: byte; p: ____; begin randomize; write('n? '); readln(n); solution(n, p); writeln(___) end.

Answer 1

Procedure solution(n: byte; var s: double);
var
    i: byte;
    a: integer;
begin
    s := 1;
    for i := 1 to n do
    begin
        a := 1 + random(21);
        write(a, ' '); {так красивше}
        s := s * a
    end;
    writeln; {строки поменяны местами просто для удобочитаемости}
    
    s := power(s, 1 / n);
end;

var
    n: byte;
    p: double;

begin
    randomize;
    write('n? ');
    readln(n);
    solution(n, p);
    writeln(p)
end.

Answer 2

Программа содержит несколько ошибок и пропусков.

1. Строка 1: Ошибка в названии переменной "__" вместо "s". 2. Строка 6: Пропущена закрывающая скобка после "writeln". 3. Строка 13: Пропущено значение переменной "p".

Исправленный вариант программы:

procedure solution(n: byte; var s: double);
var
  i: byte;
  a: integer;
begin
  s := 1;
  for i := 1 to n do
  begin
    a := 1 + random(21);
    write(a:5);
    s := s * a;
  end;
  s := power(s, 1/n);
  writeln(s);
end;

var
  n: byte;
  p: double;
begin
  randomize;
  write('n? ');
  readln(n);
  solution(n, p);
  writeln(p);
end.

В данном исправленном варианте программы происходит вызов процедуры solution с передачей значения переменной "p" в качестве второго аргумента. После выполнения процедуры выводится значение переменной "p" в консоль.