Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Помогите с задачей
Автор: AIR 21.05.2007 22:38
Пожалуйста помогите в решении задачи как можно быстрее: Дан одномерный массив С, убрать из него нули и получить массив меньшего размера, не содержащего нулей. Заранее благодарю.
Автор: AIR 21.05.2007 23:27
Спасибо сам дошел... Если кому-нибудь надо:
program zachot;
uses wincrt;
var
a: array [1..100] of integer;
b: array [1..100] of integer;
s,n,i,j: integer;
begin
clrscr;
write ('введите количество элементов массива ');
readln (n);
for i:=1 to n do
begin write ('a [',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin if a[i] <> 0 then
begin b[i]:=a[i];end;end;
for i:=1 to n do begin
if b[i] <> 0 then
writeln ('b[',i,']=',b[i]);
end;readln;end.
Автор: Schumi 21.05.2007 23:33
Молодец!Сам додумался! 