pascal массив

[Fornarina]

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

вот простой вариант вывода всех элементов, не больших А:

program xx;
const
 n = 10;
var
 b : array [1..n] of integer;
 a : integer;
 i : 1..n;
begin

  writeln ('Massiv (posledovatel''nost'') ',n,' 4isel: ');
  for i:=1 to n-1 do read(b[i]);
  readln(b[n]);

  write ('Vvedite A: '); readln(a);
  writeln ('Nova9 posledovatel''nost'':');
  for i:=1 to n do
   if b[i]<=A then write (b[i],' ');

  readln
end.

спасибо большое))

[capta1n]

но я все-таки бы посоветовал вариант puporeva - у него вариант логичнее моего, если опять брать во внимание "наверно преподаватели имели в виду" - просто puporev реально изменяет массив, а я нет - я просто вывожу числа, удовлетворяющие условию

[Wi1D]

capta1n вот к чему мы и пришли!почти тот код что я написал!только еще и облегченный!)))к чему было тут флудить и ругаться не понимаю вообще!
Каждый бы выложил свой вариант проги и все.А вот девушка бы выбрала тот что ей нужен.думаю для элементарного выбора у нее знаний бы хватило!

[capta1n]

не знаю к чему пришли вы, но я никуда не уходил

и ваш код действительно не работает - попробуйте задать свои значения, а не рандомом - я уже писал вам

[DM_bite]

а вот вашей работы я не вижу!

[offtop]А с чего тема начиналось-то...[/offtop]

[capta1n]

да почитайте нашу переписку - Санта-Барбара отдыхает

[Fornarina]

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

да почитайте нашу переписку - Санта-Барбара отдыхает

ахахаха, прям по улыбало)))

[начинающий кодер]

тут плакать надо!!! хотя как сказал кто то из великих дядек "улыбайтесь это злит остальных"))))

[Fornarina]

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

тут плакать надо!!! хотя как сказал кто то из великих дядек "улыбайтесь это злит остальных"))))

помолчи!!!! тебе слова не давали!

[начинающий кодер]

ох и влепят мне господа модераторы!! но

помолчи!!!! тебе слова не давали

! не тебе а вам, я же на ты к вам не обращаюсь ! Будьте взаимновежливы! вот еще одно подтверждение мудрости русского народа "не делай людям добра и не увидишь зла!" за сим удаляюсь! так как все равно бан обеспечен!