(см. объяснение)
Объяснение:
Запишем программу на языке PascalABC.NET 3.6.3:
##
var c: array of integer := ArrRandom(15,-7,7);
var b: integer := c.Max;
c.Transform((x,i)->((x=b) and (i>0)) ? c.Prepend(c[i-1].Print).ElementAt(i+1) : c[i]);
Задание выполнено!
Комментарий:
В данной программе нет begin и end. В современных версиях паскаль можно обойтись и без них.
(см. объяснение)
Объяснение:
Запишем программу на языке PascalABC.NET 3.6.3:
##
var c: array of integer := ArrRandom(15,-7,7);
var b: integer := c.Max;
c.Transform((x,i)->((x=b) and (i>0)) ? c.Prepend(c[i-1].Print).ElementAt(i+1) : c[i]);
Задание выполнено!
Комментарий:
В данной программе нет begin и end. В современных версиях паскаль можно обойтись и без них.