[free Pascal]: В заданном массиве удалить все числа, больше заданного числа R

[Jon_Morgan]

Как проверять и выкидывать элементы из массивов?
Дана последовательность P[i] i=1,2...n (n<=30). Получить новую последовательность X[i], выбросив из исходной все числа, большие заданного числа R. ( Не использую функции и процедуры)

[Serge_Bliznykov]

Сообщение от Jon_Morgan

ыкидывать элементы из массивов

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

(NB. для динамических массивов можно сделать SetLength(), для статических вообще ничего не надо делать, нужно только длину массива хранить в отдельной переменной и
её уменьшать при необходимости.)

[Jon_Morgan]

Все равно не понимаю как изобразить это в коде

[ura_111]

Сделай последовательно следующие этапы:

1) Дан массив, вывести его на экран. Когда справишься модифицируй программу чтобы
2) выводила на экран только меньше числа R, а больше просто игнорировало. Когда и с этим справишься, переходи к:
3) перенаправить из вывода на экран в новый массив Х.

[Jon_Morgan]

С 1 справился, а дальше не могу понять как каждый элемент проверять

[ura_111]

покажи

[Jon_Morgan]

Вот все что есть

Program main;
var P, X:array[1..30] of integer;
i, n: integer;
begin
readln (n);
for i:=1 to n do P[i]:=random (100);
for i:=1 to n do write (P[i], ' ');
readln;
end.

[ura_111]

А ну проанализируй:

Program main;
var P, X:array[1..30] of integer;
i, n, R: integer;
begin
readln (n);

for i:=1 to n do P[i]:=random (100);
for i:=1 to n do write (P[i], ' ');
writeln (' ');

R:=70;
for i:=1 to n do 
if ( P[i]<R) then write (P[i], ' ');

readln;
end.

[Jon_Morgan]

Вроде понял, а как тогда оставшееся место заполнить ?

[ura_111]

Процентов на 80% задача уже решена... Чтобы доделать, тебе надо просто перенаправить от "вывода на экран" в заполняемость массива "Х".
Единственно, для массива "Х" нельзя использовать тот же самый индекс "i", что и для P (ни в коем случае, нельзя) - для него надо организовать новый индекс (это будет счётчик "количества элементов меньше R"), который будет увеличиваться на 1-цу всякий раз, когда будет находится "<R"...

p.s.: ну всё я отчаливаю, - а то, если подробней написать - это значит просто сделать за тебя... Возьми, подумай/поэкспериментируй/помучийся и реши... Все через такое проходили (в своё время)...