Предмет: Информатика, автор: sashaku197

1)Дан одномерный массив.Заменить отрицательные элементы на противоположные по знаку
2)Дан одномерный массив.Если элемент четный, то прибавить к нему первый элемент, если нечетный-прибавить последний элемент
3)Дан одномерный массив.Удалить из массива максимальный элемент.После удаления сдвинуть все следующие за ним элементы влево.Последнему элементу присвоить значение 0.

Паскаль
желательно
блок схему
ЗАРАНЕЕ СПАСИБО

Ответы

Автор ответа: Giammy
0
//PascalABC.NET
//Версия 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



Похожие вопросы
Предмет: Геометрия, автор: bibigulz482
Предмет: Математика, автор: Джентущыьалыж
Предмет: Литература, автор: hanlu95