![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
volk14 |
![]()
Сообщение
#1
|
Гость ![]() |
Помогите! Как можно вывести массив чисел (ручным способом) без нуля (допустим от -5 до 5)?
Если можно, напишите и пришлите код. |
fms |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 195 Пол: Женский Репутация: ![]() ![]() ![]() |
хм..
так что ли?!)) Код 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 Пол: Мужской Репутация: ![]() ![]() ![]() |
До кучи совсем уж оптимизированный вариант:
Код 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 Пол: Женский Репутация: ![]() ![]() ![]() |
хе..
![]() ![]() ![]() -------------------- непонимающая..
|
![]() ![]() |
![]() |
Текстовая версия | 25.03.2023 19:01 |