+30!!!!!!!!!В одномерном массиве X(15) найти максимальный из элементов, меньше трех, и поменять его местами с предпоследним

а почему Const N=7?

просто я бы хотел понять , почему 15 ни где нет.?

Извини, привычка, поставь N = 15

Const N = 15;VarA:array[1..N]of real;B:real;i,j:integer;BeginFor i:= 1 to N do Begin A[i]:=random(15)+2; Write(A[i],' ') End;j:=0;Repeatj:=j+1Until (A[j]<3)or(j=N);if A[j]>=3 thenBeginWriteLn;WriteLn('В массиве нет элементов меньше 3')Endelse BeginFor i:= j to N do if (A[i]>A[j])and(A[i]<3) then j:=i;B:=A[j];A[j]:=A[N-1];A[N-1]:=B;WriteLn;For i:= 1 to N do Write(A[i],' ')EndEnd.