1 ответ
Василиса Паюнова
// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программка не работает, обновите версию!
1
begin
// индексацая с нуля
var R:=ArrGen(15,i-gt;10*i-i*i);
R.Println
end.
Пример
0 9 16 21 24 25 24 21 16 9 0 -11 -24 -39 -56
2
begin
var a:=ArrRandom(30,-50,50); a.Println;
var m:=a.IndexMin;
a:=a[:m+1]+Arr(0)+a[m+1:];
a.Println
end.
Пример
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 -47 4 -5 -40 -10 43
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 0 -47 4 -5 -40 -10 43
// Внимание! Если программка не работает, обновите версию!
1
begin
// индексацая с нуля
var R:=ArrGen(15,i-gt;10*i-i*i);
R.Println
end.
Пример
0 9 16 21 24 25 24 21 16 9 0 -11 -24 -39 -56
2
begin
var a:=ArrRandom(30,-50,50); a.Println;
var m:=a.IndexMin;
a:=a[:m+1]+Arr(0)+a[m+1:];
a.Println
end.
Пример
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 -47 4 -5 -40 -10 43
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 0 -47 4 -5 -40 -10 43
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов