Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами

@ser2511 · Регистрация: 23.10.2010

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

Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами.

@кот Бегемот · 25.10.2010, 20:39

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
for i:=1 to n do
if a[i]=0 then begin
inc(k);
if k=1 then n1:=i;
if k=2then n2:=i;
end;
for i:=n1 +1 to (n1+n2)div 2 do
begin
t:=a[i];
a[i]:=a[n1+n2-i];
a[n1+n2-i]:=t;
end;
for i:=1 to n do
write(a[i],' ');

@ser2511 · 25.10.2010, 21:05 **[ТС]**

а можно полный код, а то у меня не работает!!!

@кот Бегемот · 25.10.2010, 21:20

А что, заполнить массив и написать end уже влом?
тогда здесь смотри:

Описание, объявление и заполнение массивов (матриц)

@ser2511 · 25.10.2010, 21:21 **[ТС]**

но оно не работает

@кот Бегемот · 25.10.2010, 21:30

выложи свой код, я исправлю

@ser2511 · 25.10.2010, 21:36 **[ТС]**

Сообщение от кот Бегемот

выложи свой код, я исправлю

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
const n=10;
type matrix=array [1..n] of integer;
var a:matrix;
i,n1,n2,k,t:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(15)-10;
write (a[i],' ');
end;
for i:=1 to n do
if a[i]=0 then begin
inc(k);
if k=1 then n1:=i;
if k=2then n2:=i;
end;
for i:=n1 +1 to (n1+n2)div 2 do
begin
t:=a[i];
a[i]:=a[n1+n2-i];
a[n1+n2-i]:=t;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
end.

@кот Бегемот · 25.10.2010, 21:53

Всё работает, что вы голову мне морочите? Увеличьте количество элементов, чтобы было два нуля в массиве

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@ser2511 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 26

	Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами 25.10.2010, 20:01. Показов 1054. Ответов 7 Метки нет (Все метки) Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами. 0

@ser2511 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 26
	25.10.2010, 21:05 [ТС]
	а можно полный код, а то у меня не работает!!! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	25.10.2010, 21:20
	А что, заполнить массив и написать end уже влом? тогда здесь смотри: Описание, объявление и заполнение массивов (матриц) 0

@ser2511 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 26
	25.10.2010, 21:21 [ТС]
	но оно не работает 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	25.10.2010, 21:30
	выложи свой код, я исправлю 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	25.10.2010, 21:53
	Всё работает, что вы голову мне морочите? Увеличьте количество элементов, чтобы было два нуля в массиве 0