Безотлагательно. Напишите программку, которая наполняет массив случайными числами в спектре [a,
Срочно. Напишите программку, которая наполняет массив случайными числами в спектре [a, b], выводит его на экран, а потом выполняет реверс отдельно первой и 2-ой половин массива. При изменении количества частей в массиве программка обязана работать верно без дополнительных конфигураций. Пожалуйста, с разъяснениями и комментами.
Задать свой вопрос2 ответа
Анатолий Гнедовец
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программка не работает, обновите версию!
begin
var (n,a,b):=ReadInteger3('Введите размер массива и границы спектра:');
var M:=ArrRandom(n,a,b); M.Println;
var d:=n div 2; // середина массива
M:=(M[:d].Reverse+M[d:].Reverse).ToArray; M.Println
end.
Пример
Введите размер массива и границы спектра: 16 10 99
68 50 17 92 62 69 18 16 36 83 27 68 98 92 44 12
16 18 69 62 92 17 50 68 12 44 92 98 68 27 83 36
// Внимание! Если программка не работает, обновите версию!
begin
var (n,a,b):=ReadInteger3('Введите размер массива и границы спектра:');
var M:=ArrRandom(n,a,b); M.Println;
var d:=n div 2; // середина массива
M:=(M[:d].Reverse+M[d:].Reverse).ToArray; M.Println
end.
Пример
Введите размер массива и границы спектра: 16 10 99
68 50 17 92 62 69 18 16 36 83 27 68 98 92 44 12
16 18 69 62 92 17 50 68 12 44 92 98 68 27 83 36
Юлия
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
writeln('Введите диапазон:');
write('От:'); var a:= ReadInteger; // Ввод а с целым типом
write('До:'); var b:= ReadInteger; // Ввод б с целым типом
var m:array[1..10] of integer; // описание массива
writeln('Начальный массив: ');
for var i:=1 to 10 do // генерация и вывод массива
begin
m[i]:=random(a,b);
write(m[i]:4);
end;
writeln;
for var i:=1 to 2 do // переворот первой доли(методом размена 1 с 5, 2 с 4)
begin
var t:=m[i];
m[i]:=m[6-i];
m[6-i]:=t;
end;
for var i:=6 to 7 do // переворот 2-ой части(способом обмена 6 с 10, 7 с 9)
begin
var t:=m[i];
m[i]:=m[16-i];
m[16-i]:=t;
end;
writeln('Модифицированный массив:'); // вывод модифицированного массива
for var i:=1 to 10 do
write(m[i]:4);
end.
//Версия 3.3. сборка 1583 (25.11.2017)
begin
writeln('Введите диапазон:');
write('От:'); var a:= ReadInteger; // Ввод а с целым типом
write('До:'); var b:= ReadInteger; // Ввод б с целым типом
var m:array[1..10] of integer; // описание массива
writeln('Начальный массив: ');
for var i:=1 to 10 do // генерация и вывод массива
begin
m[i]:=random(a,b);
write(m[i]:4);
end;
writeln;
for var i:=1 to 2 do // переворот первой доли(методом размена 1 с 5, 2 с 4)
begin
var t:=m[i];
m[i]:=m[6-i];
m[6-i]:=t;
end;
for var i:=6 to 7 do // переворот 2-ой части(способом обмена 6 с 10, 7 с 9)
begin
var t:=m[i];
m[i]:=m[16-i];
m[16-i]:=t;
end;
writeln('Модифицированный массив:'); // вывод модифицированного массива
for var i:=1 to 10 do
write(m[i]:4);
end.
Элина Кишлакова
что такое readlnteger?
Игорь Сангинов
и метод размена 1 с 5, 2 с 4 и пр.?
Алина Корниенкова
Прочесть данные и присвоить им тип целых
Юлия Ларькова
Способ размена при поддержки воспомогательной переменной, в моем случае т
Ксюха
К примеру т присваиваю 1, 1 в свою очередь 5, а 5 теснее присвоить т
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов