INPUT "N= ", N
DIM A(N)
FOR I = 1 TO N
INPUT A(I)
NEXT
FOR I = 1 TO N
IF A(I) > I THEN PRINT A(I);
NEXT
Тестирование выполнено в программе QB64 ( Скачать )
INPUT "N= ", N
DIM A(N)
FOR I = 1 TO N
INPUT A(I)
NEXT
FOR I = 1 TO N
IF A(I) > I THEN PRINT A(I);
NEXT
Тестирование выполнено в программе QB64 ( Скачать )