Developing.ru

Код: Выделить всё

i:=1; idx10=-1;
while (i<=N) and (a[i]<>0) do begin {просматриваем до нуля или до конца}
  if a[i]>10 then idx10=i; {если >10, то запоминаем где оно}
  inc(i);
end;
if i>N 
  then writeln('не встерился 0') 
  else
    if idx10=-1 
      then writeln('не нашлось чисел > 10')
      else writeln('последнее число >10 (',a[idx10],') найдено в позиции ',idx10);

Код: Выделить всё

i:=1; idx10=-1;
while (a[i]<>0) do begin {просматриваем до нуля}
  if a[i]>10 then idx10=i; {если >10, то запоминаем где оно}
  inc(i);
end;
if idx10=-1 
  then writeln('не нашлось чисел > 10')
  else writeln('последнее число >10 (',a[idx10],') найдено в позиции ',idx10);