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

Picmout    1   31.07.2019 11:30    2