Вывести убывающую последовательность целых чисел от +N до -N.

@sk1lLer · Регистрация: 11.12.2012

Студворк — интернет-сервис помощи студентам

Очень нужная помощь.
Нужно написать:
1. Программу, которая выведет убывающую последовательность целых чисел от +N до -N.

@centrum · 11.12.2012, 19:06

В смысле, если ввести 1 2 6 8 и вывело 8 6 2 1 или 4 73 8 2 -4 и вывело 73 8 4 2 -4 ???

@sk1lLer · 11.12.2012, 19:27 **[ТС]**

Сообщение от centrum

В смысле, если ввести 1 2 6 8 и вывело 8 6 2 1 или 4 73 8 2 -4 и вывело 73 8 4 2 -4 ???

Ну да. В порядке убывания нужно.

@centrum · 11.12.2012, 19:38

Сообщение от sk1lLer

Ну да. В порядке убывания нужно.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const n1 = 99;
var a: array [1..n1] of integer;  i,n: integer;
begin
writeln('введите кол-во букв в последовательности');
readln(n);
for i:=1 to n do
a[i]:= random(10);
 
for i:=1 to n do
 write(a[i],'|');
 writeln;
 
  writeln('обратная последовательность:');
 for i:=n downto 1 do
 write(a[i],'|');
 end.

@sk1lLer · 11.12.2012, 20:08 **[ТС]**

Добавлено через 1 минуту

Сообщение от centrum

Pascal
1
uses crt;

Нужно в порядке убывания.
Т.е.

Сообщение от centrum

4 73 8 2 -4 и вывело 73 8 4 2 -4 ???

@centrum · 11.12.2012, 20:23

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
Var a: array [1..99] of integer; i,j,n,c, nmin: integer;
begin
writeln('ââåäèòå êîë-âî ýëåìåíòîâ');
readln(n);
for i:=1 to n do
a[i]:= random (10);
writeln('èñõîäíûé ìàññèâ');
for i:=1 to n do
write(a[i],'|');
writeln;
for i:=1 to n - 1 do begin
nmin:=i;
for j:= i+1 to n do
if a[j] > a[nmin] then nmin:=j;
c:=a[i];
a[i]:=a[nmin];
a[nmin]:=c;
end;
for i:=1 to n do
write(a[i],'|');
;
end.

@sk1lLer · 11.12.2012, 21:14 **[ТС]**

Еще раз большое спасибо за помощь! Но в ответе ни разу не получились отрицательные числа. Чего-то не хватает?

@centrum · 11.12.2012, 21:18

Сообщение от sk1lLer

Еще раз большое спасибо за помощь! Но в ответе ни разу не получились отрицательные числа. Чего-то не хватает?

Pascal
1
a[i]:= random (10)-5;

Попробуйте так

@sk1lLer · 11.12.2012, 21:36 **[ТС]**

Сообщение от centrum

Pascal
1
a[i]:= random (10)-5;

Попробуйте так

Вы мне очень помогли

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@sk1lLer 0 / 0 / 0 Регистрация: 11.12.2012 Сообщений: 20

	Вывести убывающую последовательность целых чисел от +N до -N. 11.12.2012, 14:41. Показов 1864. Ответов 8 Метки нет (Все метки) Очень нужная помощь. Нужно написать: 1. Программу, которая выведет убывающую последовательность целых чисел от +N до -N. 0

@centrum 14 / 14 / 14 Регистрация: 09.12.2012 Сообщений: 56
	11.12.2012, 19:06
	В смысле, если ввести 1 2 6 8 и вывело 8 6 2 1 или 4 73 8 2 -4 и вывело 73 8 4 2 -4 ??? 0

@sk1lLer 0 / 0 / 0 Регистрация: 11.12.2012 Сообщений: 20
	11.12.2012, 21:14 [ТС]
	Еще раз большое спасибо за помощь! Но в ответе ни разу не получились отрицательные числа. Чего-то не хватает? 0