СРОЧНО! НУЖНА ПОМОЩЬ! НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ.
Ввести N чисел из диапазона от 0 до 10 000 и вывести количество трехзначных чисел ,а если таких чисел нет,то вывести НЕТ

Но кроме шуток, когда разработчики PascalABC.NET начинали проект, было пожелание преподавателей иметь возможность написать любую школьную задачу в 1-2 строки, а олимпиадную - ну хотя бы в пять.

Она дает одинаковый алгоритм ввода массива, а потом с этим массивом можно делать что угодно во 2 цикле. Можно посчитать количество трехзначных чисел, можно найти максимальный и минимальный элементы массива, можно посчитать сумму некоторых элементов, и так далее. Переделать второй цикл под нужную задачу намного проще, чем писать программу с нуля.

Определение "школьная задача" весьма расплывчато, особенно в программировании, так что такое требование учителей странно слышать.

О требовании речь не шла, я же написал: ПОЖЕЛАНИЕ. "Любая школьная" - было истолковано, как "основаная на типовых алгоритмах, типа сумма, максимум, среднее, сортировка и т.д."

ReadSeq() или ReadArr() - это также "одинаковый алгоритм ввода" последовательности или массива. Только в отличие от цикла, пишется в одно слово. Кроме того, ReadArr позволяет сразу и создать массив, на ходу определив необходимый размер. Так какое же преимущество тут у цикла? )) Собственно, вся дискуссия эта излишняя: "светила информатики" уже однозначно определились, что будущее за функциональным программированием. Классические массивы и циклы уже начали отмирать в новых языках.

uses crt;type TDMassiv = recordintMassiv : array of integer // Создали тип "динамический массив"end;var N, i, k : integer; A : TDMassiv // Создали переменную A нового типа TDMassivBeginclrscr;randomize;write('Vvedite kol-vo chisel');readln(N);SetLength(A, N) // Определяем, что массив А будет размера N элементов.for i=1 to N dobeginA[i] := random(10001); // Заполняем массив случайными числами [0..10000]end;k := 0; // k - это счетчик трехзначных чисел for i=1 to N dobeginif (A[i] >= 100) AND (A[i] <= 999) then k := k+1; // Считаем трехзначные числаend;if k := 0 then writeln ('HET') else writeln('Trehznachnyh chisel = ', k); // Выводим посчитанное количество чисел на экранEND.