Дана программа, содержащая синтаксические и алгоритмические ошибки и/или пропуски. указать строки, содержащие эти ошибки и их содержание. исправить их. если есть пропуски, заполнить их. представить правильный вариант программы. определить среднее элементов набора данных, полученных случайным образом и содержащего положительные числа. 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); end.
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.