Заполнить массив и выполнить инверсию для каждой трети массива.

@sashkakor · Регистрация: 02.04.2012

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

Заполнить массив и 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.

@Севак · 02.04.2012, 21:13

sashkakor, покажи на примере, к примеру массив вот такой: 1 2 3 4 5 6 7 8 9 10 11 12, а станет 4 3 2 1 9 8 7 6 12 11 10 9 ?

@Puporev · 02.04.2012, 21:29

а станет 4 3 2 1 8 7 6 5 12 11 10 9

@Севак · 02.04.2012, 21:43

Pascal

uses crt;
var a: array[1..12] of integer;
    i,x,y: integer;
begin
 
writeln('Исходный массив: ');
for i:=1 to 12 do begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
 
for i:=1 to 12 do begin
if i mod 4=0 then begin
x:=a[i-3];
y:=a[i-2];
a[i-3]:=a[i];
a[i-2]:=a[i-1];
a[i-1]:=y;
a[i]:=x;
end;
end;
writeln;
writeln('Измененный массив: ');
for i:=1 to 12 do begin
write(a[i],' ');
end;
end.

@sashkakor 0 / 0 / 0 Регистрация: 02.04.2012 Сообщений: 17
		1
	Заполнить массив и выполнить инверсию для каждой трети массива. 02.04.2012, 21:04. Показов 2564. Ответов 3 Метки нет (Все метки) Заполнить массив и 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива. 0

@Севак любитель покушать 687 / 641 / 248 Регистрация: 25.09.2011 Сообщений: 1,313
	02.04.2012, 21:13	2
	sashkakor, покажи на примере, к примеру массив вот такой: 1 2 3 4 5 6 7 8 9 10 11 12, а станет 4 3 2 1 9 8 7 6 12 11 10 9 ? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.04.2012, 21:29	3
	а станет 4 3 2 1 8 7 6 5 12 11 10 9 0

	02.04.2012, 21:43

Опции темы