Найти среднее квадратичное положительных элементов последовательности, вводимой с клавиатуры. Считать, чт

[LiptonICE]

Program lab5;
cons 7;
var
a: array [1..7] of integer;
i,m,n: integer;
s,r: real;
begin
repeat
writeln('vvedite element massiva');
readln(a[i]);
until a[i]=0;
for i:=1 to 7 do
begin
if a[i]>0 then
begin
r:=0;
r:=r+sqr(a[i]);
end;
end;
s:=sqrt(r/i);
readln(s);
end.
Уважаемые модераторы, подскажите что с задачкой не так?

[vovk]

А почему модераторы? 0_о

repeat
writeln('vvedite element massiva');
readln(a[i]);
until a[i]=0;

тут думаю хотелось так

i:=1;
repeat
readln(a[i]);
writeln('vvedite element massiva');
i:=i+1;
until i>7;

код дальше не смотрел
посмотрел чуть дальше, а тут

for i:=1 to 7 do
begin
if a[i]>0 then
begin
r:=0;
r:=r+sqr(a[i]);
end;
end;

пожалуй так

r:=0;
for i:=1 to 7 do
begin
if a[i]>0 then
r:=r+sqr(a[i]);
end;

[LiptonICE]

спасибо биг