Готово. Решение в файле. Если возникнут вопросы, пиши в комментарии.
Спасибо!)))))))
Литвинов, рано радуешься! Перед тем как показывать эту прогу преподу, тебе придется почти весь Паскаль вызубрить. Иначе спалишься моментально. Магик, он-то умный, а обычному школяру такую прогу не написать.))
Мне это не для школы. Я отдельно на программирование хожу учиться)))
Пишу в QBasic CLS Массив уже создан и заполнен DIM B(N) FOR I= 1 TO N IF A(I)<=Z THEN<br>B(K)=A(I) K=K+1 END IF NEXT I
Вы бы не могли написать в паскали?
Смотри моё решение, написано в паскале.