Program zadacha2;
Uses crt;
function stepen(b,n:integer):longint;
var
S:longint;
i:integer;
begin
S:=1;
for i:=1 to n do
S:=S*b;
stepen:=S;
end;
Var i,n,m,c,max:integer;
a:array [1..10] of longint;
Begin
Clrscr; max:=0; c:=1;
for i:=1 to 10 do begin
writeln('Vvedite a[i]');
readln(a[i]);
writeln('a[',i,']=',a[i]);
for n:=1 to 10 do begin
if a[i]=stepen(5,n) then
for m:=1 to 10 do begin
if a[i-1]=stepen(5,m) then c:=c+1;
if c>max then max:=c;end;end;end;
writeln('naibolshij otrezok =',max);
readln;
End.
Загвоздка в том, что прога считает ВСЕ элементы из степеней 5.
Помогите исправить пожалуста! Заранее огромное спасибо!