<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(ReadInteger('Введите размер массива->'),-100,100); Write('Начальный массив: '); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; Write('Конечный массив: '); a.Println;
end.
Пример:
Введите размер массива-> 10
Начальный массив: -100 84 -35 -26 -33 63 36 22 60 89
Конечный массив: 84 -26 63 22 89
Вы куда набирать собираетесь в какую-то третью емкость, да???
тогда так:Набираете сначала трехлитровым кувшином 3 литра и выливаете их в восьмилитровый кувшин, потом еще раз набираете и выливавете (у вас в 8-литровом уже 6 литров) и последний раз зачерпываете трехлитровым и выливаете ( соответственно в трехлитровом останется ровно литр). Сливаете полученный литр в наборочную емкость и еще 2 раза по три литра.
1+3+3=7
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99); a.Println(4);
for var r:=0 to 3 do
a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray);
Writeln('*** Отсортированный массив ***'); a.Println(4)
end.
<u>Пример</u>
*** Исходный массив ***
-51 13 46 -81
66 52 -8 -58
-30 7 44 1
12 11 -98 -90
*** Отсортированный массив ***
-81 -51 13 46
-58 -8 52 66
-30 1 7 44
-98 -90 11 12
2. информационный
3. алфавит
6. информация
12.знак
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
