Какая ошибка в программе паскальАВС? УСЛОВИЕ: В одномерном массиве найти среднее арифметическое всех элементов массива
program _1;
var i, n: integer; S, O, k: real; a: array [1..50] of real;
begin
writeln ('Ввод n');
readln(n);
for i:= 1 to n do
begin
writeln ('Ввод a [',i,']');
readln (a[i]);
S:=0;
k:=0;
S:= S+a[i];
k:=k+1;
end;
O:= S/k;
writeln ('O=',O);
end.
program Poz;
var a, b, c, i: integer;
begin
writeln('Введите 50 чисел.');
for i:=0 to 49 do
begin
readln(a);
if a>0 then
b+=1
else
c+=1
end;
writeln('Количество положительных чисел = ', b, ' ', 'Количество отрицательных чисел = ', c)
end.