Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Массив без нуля!
Автор: volk14 28.11.2003 22:39
Помогите! Как можно вывести массив чисел (ручным способом) без нуля (допустим от -5 до 5)?
Если можно, напишите и пришлите код.
Автор: fms 29.11.2003 0:40
хм..
так что ли?!))
Код
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.
Автор: Дмитриев Ярослав 29.11.2003 1:16
Цитата
хм..
так что ли?!))
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.
Автор: GLuk 29.11.2003 12:30
До кучи совсем уж оптимизированный вариант:
Код
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 29.11.2003 13:39
хе.. 
ну и что?)) только счас поняла что написала что то не то.. ;D