В цикле несколько ошибок. У Вас:
Цитата:
Сообщение от Serega61
kol:=1;
for i:=1 to n do
begin
if a[i]>3 then
b[kol]:=a[i];
kol:=kol+1;
writeln('b[i]=',b[i]);
end;
|
Надо:
Код:
kol:=0;
for i:=1 to n do
if a[i]>3 then
begin
kol:=kol+1;
b[kol]:=a[i];
writeln('b[',kol,']=',b[kol]);
end;