![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Negor |
![]()
Сообщение
#1
|
Гость ![]() |
Подскажите пожалуйста такое решение.
Есть некоторый массив.И из него нужно удалить элементы меньшие какого либо значения Например 1,3,5,4,3,1,8,6=array удаляем все элементы меньше 5 получаем 5,8,6 |
![]() ![]() |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Пользуйся поиском, решалось неоднократно
ps удаление к-го элемента for i := k to n - 1 do arr[i] := arr[i+1];
n := n - 1;
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Гость |
![]()
Сообщение
#3
|
Гость ![]() |
Народ памагите,я скоро с ума сойду
Вот написал, но чтото сдесь не работает, а что, не пойму.((( Код uses crt; var a:array[1..10] of byte; i,n,j,k,t:byte; begin Clrscr; randomize; for i:=1 to 10 do begin a[i]:=random(9)+1; write(a[i]:2); end; writeln; readln(j); n:=10; for i:=1 to n do if a[i]<=j then for k:=i to n-1 do a[k]:=a[k+1]; for i:=1 to n do write(a[i]:2); readkey end. |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Было почти правильно... Только вот так все-же лучше:
uses crt;
var a:array[1..10] of byte;
i,n,j,k,t:byte;
begin
Clrscr;
randomize;
for i:=1 to 10 do begin
a[i]:=random(9)+1;
write(a[i]:2);
end;
writeln;
readln(j);
n:=10;
i := 1;
while i <= n do
if a[i]<=j then begin
for k:=i to n-1 do a[k]:=a[k+1];
dec(n)
end
else inc(i);
for i:=1 to n do write(a[i]:2);
readkey
end.
Неиспользуемые переменные убери... |
Гость |
![]()
Сообщение
#5
|
Гость ![]() |
Как обычно всё гениальное просто.Большое спасибо за помощ
|
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 7:41 |