Ребята, помогите пожалуйста написать программу в паскале. 10 класс
баллов дам не мало)

спасибо большое, а можете пожалуйста объяснить некоторые строчки. а то не совсем поняла : 1) а[i]:=random(221)-110; 2) write (a[i]:5); и if a[i]<=0 then a[i]:=a[i]*sqr(max);

1. Заполнение массива сл. числами в диапазоне от -110 до 110 2. a[i]:5 Форматный вывод. Выделяется 5 знакомств для вывода на экран одного элемента a[i] 3. если a[i] меньше или равно 0, то в a[i] умножаем на квадрат максимального (sqr(max))

В Паскале НЕТ тернарного оператора.

но pascalabc такое проглатывает, хотя я не могу найти это в доках.

И еще: в задании было требование "умножить элемент....", т.е. я то понимаю, как модификацию исходного массива. Её эффективнее делать в цикле, чем указывать a:=f(a) - это с ленивыми вычислениями плохо сочетается.

По поводу тернарного оператора есть мнение, что это в любой момент может оказаться неработоспособым и лучше не привыкать

Надо будет на форуме поднять вопрос, будет ответ "официальный"

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  var a:=ArrRandom(ReadInteger('n='),-110,110);  a.Println;  var max2:=sqr(a.Max);  for var i:=0 to a.Length-1 do    if a[i]<=0 then a[i]*=max2;  a.Printlnend.Тестовое решение:n= 1052 -62 106 -110 33 87 46 107 -62 652 -709838 106 -1259390 33 87 46 107 -709838 6