Массив без нуля! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Массив без нуля! |
volk14 |
Сообщение
#1
|
Гость |
Помогите! Как можно вывести массив чисел (ручным способом) без нуля (допустим от -5 до 5)?
Если можно, напишите и пришлите код. |
fms |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
хм..
так что ли?!)) Код Program hkhj; var i:integer; begin for i:=-5 to 5 do if i<>0 then write(i); end. Сообщение отредактировано: volvo - -------------------- непонимающая..
|
Дмитриев Ярослав |
Сообщение
#3
|
Гость |
Цитата хм.. так что ли?!)) 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 - |
GLuk |
Сообщение
#4
|
Профи Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: 0 |
До кучи совсем уж оптимизированный вариант:
Код 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 |
Сообщение
#5
|
Бывалый Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: 0 |
хе.. ну и что?)) только счас поняла что написала что то не то.. ;D
-------------------- непонимающая..
|
Текстовая версия | 11.10.2024 16:44 |