pascal массив

[Wi1D]

Сообщение от начинающий кодер

а зачем тут они??? можно и без них обойтись!!!

так вот я и обошелся!
единственно можно увеличить диапозон чисел,Random'а и массива...
в задании сказано:ЕСТЬ МАССИВ!ПОЛЬЗОВАТЕЛЬ ВВОДИТ ЧИСЛО.И вывести на экран массив начальный,уьрав оттуда все элементы больше числа...
Мой код это и выполняет

[Fornarina]

спасиб, жду новой прогаммы)

[puporev]

Насчет списков Capta1n немного загнул, вряд ли это здесь нужно, а по существу прав. Использование дополнительного массива не есть удаление, а есть копирование определенных элементов. Обычно преподаватели имеею в виду такой вариант.

uses crt;
var x:array[1..50]of integer;
    n,i,j,a:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
  begin
    x[i]:=random(100);
    write(x[i],' ');
  end;
writeln;
writeln('Vvedite chislo A:');
readln(a);
i:=1;
while i<=n do
   begin
    if x[i]>a then {если элемент масива больше А}
       begin
         for j:=i to n-1 do{от этого числа до предпоследнего}
         x[j]:=x[j+1];{присваиваем значения следующих элемен6тов, найденное число исчезает}
         n:=n-1;{уменьшаем размерность массива}
       end
     else i:=i+1;{иначе переходим к следующему элементу}
   end;
writeln('Rezultat:');
for i:=1 to n do
write(x[i],' ');
readln
end.

[capta1n]

опять же, puporev, я снимаю шляпу со своей головы и преклоняюсь перед Вашим опытом, да и репутация моя по сравнению с Вашей ничто , но вы не удаляете элемент, хотя с вами согласен, что "преподаватели что-то там имеют в виду", потому что "иметь в виду можно что угодно"

в задании сказано:ЕСТЬ МАССИВ!

Вот задание:

составить программу,которая удаляет все элементы, большие данного числа А ( А вводить с клавиатуры).

Где тут слово "массив" красным мне выделите, пожалуйста

[puporev]

Где тут слово "массив" красным мне выделите, пожалуйста

В названии темы выделено черным полужирным курсивом.

[capta1n]

поэтому я и справшиваю у девушки, каким образом трактовать задание - если надо просто вывести новый массив, можно без циклов в Вашей программе, Puporev, просто вывести элементы, которые меньше или равны А, а если действительно удалить - только списки, чтобы структуру последовательности не нарушить

[Fornarina]

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

ладно, ребят, я лучше девушке работающую по заданию программу напишу, чем попросту тут спорить буду с Вами ни о чем

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

В названии темы выделено черным полужирным курсивом.

это тема, а ведь мы решаем не тему, а задание!!!!!

[puporev]

чтобы структуру последовательности не нарушить

А я не нарушаю. Последовательность оставшихся элементов сохраняется.

[capta1n]

В названии темы выделено черным полужирным курсивом.

спасибо, теперь увидел, что массив - значит элемент удалить нельзя - просто вывести полученный массив ( либо создать динамический массив, а точнее массив указателей, а потом удалять по элементу и получить новый массив ), хотя теперь понимаю, что там "имели в виду"

[puporev]

это тема, а ведь мы решаем не тему, а задание!!!!!

Вы то милочка как раз ни хрена не решаете.