Дана программа, содержащая синтаксические и алгоритмические - вопрос №5781155 от AsanovaLiana 01.11.2020 23:04

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,

AsanovaLiana · Answer

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.