вычисление среднего значения в одномерном массиве для всех элементов между первым и вторым нулем в массиве (или от первого нулевого значения до конца массива). Длина и значения элементов массива вводятся с клавиатуры. Печатать элементы массива по: 5 штук, формату :12.
Долго мучаюсь, переделываю по-разному, но правильно никак не считает. Помогите, пожалуйста, найти ошибки:
PROGRAM LAB;
VAR
i, l, j, A, b, c, d :integer;
N, Sr, Sum :real;
Number :array[1..50] of real;
Fout :text;
BEGIN
Sum:=0;
writeln('Skolko budet chisel?');
readln(A);
for i:=1 to A do
begin
writeln('Vvedite ocherednoe chislo');
readln(Number[i]);
end;
assign(Fout,'A:\LAB.TXT');
rewrite(Fout);
writeln(Fout,'Ishodniy massiv iz ',A,' elementov');
for i:=1 to A do
begin
write(Fout,Number[i]:12);
if i mod 5 = 0 then writeln(Fout);
end;
writeln(Fout);
for i:=1 to A do
begin
if Number[i] = 0 then c:=i;
begin
for k:=c to A do
begin
if Number[k]>0 then
Sum:=Sum+Number[k];
if Number[k]=0 then d:=k;
b:=d-c-1;
Sr:=Sum/b
end;
end;
end;
write(Fout,'Srednee znachenie ravno ',Sr,'');
close(Fout);
END.
И еще вопрос, не относящийся к этой задаче: как сделать так, чтобы в массиве с произвольными символами программа находила только символы кириллицы?
Заранее спасибо.