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

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

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

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

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

Pascal

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

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

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

@ser2511 1 / 1 / 0 Регистрация: 23.10.2010 Сообщений: 26
		1
	Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами 25.10.2010, 20:01. Показов 801. Ответов 7 Метки нет (Все метки) Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами. 0

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

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

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

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

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

Опции темы