найти номер последнего элемента массива, который заканчивается на 25.

Question

Const N = 30; 
Type Mas = ARRAY [1..N] OF integer;
Procedure Input1 (var x:mas);
Var i:integer;
Begin
For i:=1 to N do 
Begin
Write('x[',i,']=');
readln(x[i]);
End;
End;
Procedure Input2 (var x:mas; a,b:integer);{заполняем массив x случайными
числами из отрезка [a,b]}
Var i:integer;
Begin
Randomize;
For i:=1 to N do x[i]:=a+random(b-a+1);
End;
Procedure Print (x:mas);
Var i:integer;
Begin
Writeln('массив: ');
For i:=1 to N do write(x[i]:5);
Writeln;
End;
begin
var i,a:integer;
i:=n+1;
Repeat 
dec(i);
Until (a[i]) or (i<1);
If i<1 then writeln ('такого элемента нет') else writeln('номер ',i);
end.

Наурызбай Нагметов · Accepted Answer

А алгоритм построения элементов массива известен? Если нет, то задача не имеет решения.

Сергей Герасимов · Answer

Здравствуйте Наталья. Опять 25:). Хорошего настроения))

Николай Чуланов · Answer

самый простой но нечестный способ (перевести в строку) :

конст Н = 10;
вар
А: аррай (1..Н) оф интегер;
И, Л: интегер;
О: боолеан;
С: стринг;
бегин
фор И := 1 то Н до реадлн (А (И) ) ;
О := фалсе;
фор И := Н довнто 1 до бегин
стр (А (И) , С) ;
Л := ленгтх (С) ;
иф (Л _больше_ 1) анд (С (Л) = "5") анд (С (Л-1) = "2") тхен бегин
О := труе;
бреак;
енд;
енд;
иф нот О тхен врителн ("нет такого элемента")
елсе врителн ("а (",И, " = ", а (и) ) ;
реадлн;
енд.

можно немного подумать и решить без строк, алгоритмически но задача в любом случае имеет решение причем не очень длинное

а вот и один из них:

вместо того фора использовать следующий:

фор И := Н довнто 1 до
иф (А (И) - (А (И) див 100 )*100= 25) тхен бегин
О := труе;
бреак;
енд;