Массив без нуля! Опции

[volk14]

Помогите! Как можно вывести массив чисел (ручным способом) без нуля (допустим от -5 до 5)?
Если можно, напишите и пришлите код.

[Дмитриев Ярослав]

хм..
так что ли?!))
Program hkhj;
var i:integer;
begin
for i:=-5 to 5 do
if i<>0 then write(i);
end.

Что-то я не заметил массива ? =)))

Код

program clane;
var a: array[1..10] of integer;
i: byte;
begin
for i:=1 to 10 do {ввод массива}
begin
writeln('Введите число');
readln(a[i]);
end;
for i:=1 to 10 do {если нулевой элемент, но ничего не делай}
begin
if a[i] <> 0 then writeln(a[i]);
end;
end.

Сообщение отредактировано: volvo - 17.12.2004 20:22