Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с задачей
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
AIR
Пожалуйста помогите в решении задачи как можно быстрее: Дан одномерный массив С, убрать из него нули и получить массив меньшего размера, не содержащего нулей. Заранее благодарю.
AIR
Спасибо сам дошел... Если кому-нибудь надо:
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
Молодец!Сам додумался! good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.