1. В массиве С из 15 целых элементов из диапазона [-7;7] вывести на экран номера тех элементов, которые находятся перед максимальным элементом. (паскаль)

(см. объяснение)

Запишем программу на языке 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. В современных версиях паскаль можно обойтись и без них.