Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.
Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.
Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.
1) begin ReadArrInteger(ReadInteger('n->')).Select(t->-t).Println; end.
Пример: n-> 5 7 -9 4 5 -20 -7 9 -4 -5 20
2) begin var a:=ReadArrInteger(ReadInteger('n->')); var (f,l):=(a[0],a[a.Length-1]); Range(0,a.Length-1).ForEach(t->begin if a[t]<>0 then if a[t].IsEven then a[t]:=a[t]+f else a[t]:=a[t]+l;end); a.Println; end.
3) begin var a:=ReadArrInteger(ReadInteger('n->')); var im:=a.IndexMax; If im<>a.Length-1 then a:=a[:im]+a[im+1:]+arr(0) else a:=a[:im]+arr(0); a.Println; end.
Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.
Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.
Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
ReadArrInteger(ReadInteger('n->')).Select(t->-t).Println;
end.
Пример:
n-> 5
7 -9 4 5 -20
-7 9 -4 -5 20
2)
begin
var a:=ReadArrInteger(ReadInteger('n->')); var (f,l):=(a[0],a[a.Length-1]);
Range(0,a.Length-1).ForEach(t->begin if a[t]<>0 then if a[t].IsEven then a[t]:=a[t]+f else a[t]:=a[t]+l;end);
a.Println;
end.
Пример:
n-> 14
1 5 4 7 8 6 2 4 2 4 0 4 0 3
4 8 5 10 9 7 3 5 3 5 0 5 0 6
3)
begin
var a:=ReadArrInteger(ReadInteger('n->')); var im:=a.IndexMax;
If im<>a.Length-1 then a:=a[:im]+a[im+1:]+arr(0)
else a:=a[:im]+arr(0);
a.Println;
end.
Пример(1):
n-> 5
1 2 5 3 4
1 2 3 4 0
Пример(2):
n-> 5
1 2 3 4 5
1 2 3 4 0