11.12.2009, 22:03
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от coltus
в паскале нужно удалить из массива (0,2,0,4,0,6...20) нули..
Код:
const n=5;
var
a,b:array[1..n] of integer;
i,index:integer;
begin
index:=1;
for i:=1 to n do
readln (a[i]);
for i:=1 to n do
if a[i]<>0 then
begin
b[index]:=a[i];
index:=index+1;
end;
a:=b;
for i:=1 to index-1 do
write (a[i]);
end.
Люди, юзайте Google хоть для таких-то примеров, там ВСЕ это есть.
P.S Решение, приведенное выше, не самое мега-лучшее, но зато более наглядное, ибо без сильных заморочек.
|
|
|