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

[volk14]

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

[fms]

хм..
так что ли?!))

Код

Program hkhj;
var i:integer;
begin
for i:=-5 to 5 do
if i<>0 then write(i);
end.

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

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

хм..
так что ли?!))
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 16:22

[GLuk]

До кучи совсем уж оптимизированный вариант:

Код

Program ArrayWithoutZero;
Uses
   Crt;
Const
    N = 150;
Procedure ArrayOut;
Var
  a:array[1..N] of Integer;
  i:Word;
begin
    For i:=1 to N do a[i]:=i-(N DIV 2 + 1);
    For i:=1 to N do If a[i]<>0 then Write(a[i],' ');
end;
Begin
    ClrScr;
    Randomize;
    ArrayOut;
End.

[fms]

хе.. ну и что?)) только счас поняла что написала что то не то..  ;D