НУЖНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЬ. 1. В массиве 10 чисел. Положительные числа замените...

Question

НУЖНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЬ.
1. В массиве 10 чисел. Положительные числа замените их номерами. Вывести на экран в столбик изменившийся массив.
2. В массиве М(8) найдите сумму элементов, больших 12

Answer 1

Файл в приложении==============

Answer 2

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Writeln('-'*10);
  var a:=ArrRandom(10,-99,99); a.Println;
  a:=a.Select((x,i)->x>0?i+1:x).ToArray; a.Println(NewLine);
  Writeln('-'*10);
  var m:=ArrRandom(8,-10,30); m.Println;
  Writeln('s=',m.Where(x->x>12).Sum)
end.

Тестовое решение
----------
26 -63 12 85 9 53 57 36 -45 30
1
-63
3
4
5
6
7
8
-45
10
----------
11 -4 14 6 24 0 -8 10
s=38