В программе pascalABC.NET
1)Дан массив из 10 элементов, заменить все элементы на противоположные по знаку.
2)Дан одномерный массив. Прибавьте ко всем элемента по 1.
3)Дан одномерный массив. Уменьшите значение элементов на 3.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Transform(x->-x); a.Println;
a.Transform(x->x+1); a.Println;
a.Transform(x->x-3); a.Println
end.
Пример
-46 23 16 -36 -19 -37 -12 11 -30 44
46 -23 -16 36 19 37 12 -11 30 -44
47 -22 -15 37 20 38 13 -10 31 -43
44 -25 -18 34 17 35 10 -13 28 -46
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Transform(x->-x); a.Println;
a.Transform(x->x+1); a.Println;
a.Transform(x->x-3); a.Println
end.
Пример
-46 23 16 -36 -19 -37 -12 11 -30 44
46 -23 -16 36 19 37 12 -11 30 -44
47 -22 -15 37 20 38 13 -10 31 -43
44 -25 -18 34 17 35 10 -13 28 -46
Новые вопросы