Помогите! Как можно вывести массив чисел (ручным способом) без нуля (допустим от -5 до 5)?
Если можно, напишите и пришлите код.
Полная версия: Массив без нуля!
хм..
так что ли?!))
так что ли?!))
Код
Program hkhj;
var i:integer;
begin
for i:=-5 to 5 do
if i<>0 then write(i);
end.
var i:integer;
begin
for i:=-5 to 5 do
if i<>0 then write(i);
end.
Цитата
хм..
так что ли?!))
Program hkhj;
var i:integer;
begin
for i:=-5 to 5 do
if i<>0 then write(i);
end.
так что ли?!))
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.
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.
До кучи совсем уж оптимизированный вариант:
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.
Код
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.
хе.. 
ну и что?)) только счас поняла что написала что то не то.. ;D
ну и что?)) только счас поняла что написала что то не то.. ;D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.