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

@FARAON166 · Регистрация: 26.10.2010

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

Пожалуйста, помогите решить вот эту задачу.

Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить реверс для каждой трети массива.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0 5 7
Результат:
10 3 -5 4 -10 8 -6 -4 7 5 0 1

Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе

@ermolay · 21.10.2012, 18:24

подкорректировал код задачи, решенной КонецСвета (да простит он мне плагиат

)
упрощенный вариант

Pascal

var a: array [1..12] of integer;
    i: byte;
    buf: integer;
 
begin
writeln('Исходный массив');
for i:=1 to 12 do
    begin
    a[i]:=random(25)-12;
    write(a[i]:4);
    end;
writeln;
for i:=1 to 2 do
    begin
    buf:=a[i];
    a[i]:=a[5-i];
    a[5-i]:=buf;
    end;
for i:=5 to 6 do
    begin
    buf:=a[i];
    a[i]:=a[13-i];
    a[13-i]:=buf;
    end;
for i:=9 to 10 do
    begin
    buf:=a[i];
    a[i]:=a[21-i];
    a[21-i]:=buf;
    end;
writeln('Преобразованный массив');
for i:=1 to 12 do
    write(a[i]:4);
end.

@FARAON166 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 33
		1
	Заполнить массив из 12 элементов случайными числами и выполнить реверс для каждой трети массива 21.10.2012, 18:01. Показов 16605. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить реверс для каждой трети массива. Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 5 7 Результат: 10 3 -5 4 -10 8 -6 -4 7 5 0 1 Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе 0

	21.10.2012, 18:24

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

Решение