Ребята, помогите пожалуйста написать программу в паскале. 10 класс
баллов дам не мало)
Приложения:
![](https://st.uroker.com/files/2b7/2b7c2a68bbbf4c1d3643488f78892fc7.jpg)
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
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.Println
end.
Тестовое решение:
n= 10
52 -62 106 -110 33 87 46 107 -62 6
52 -709838 106 -1259390 33 87 46 107 -709838 6
begin
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.Println
end.
Тестовое решение:
n= 10
52 -62 106 -110 33 87 46 107 -62 6
52 -709838 106 -1259390 33 87 46 107 -709838 6
Ответ дал:
0
В Паскале НЕТ тернарного оператора.
Ответ дал:
0
но pascalabc такое проглатывает, хотя я не могу найти это в доках.
Ответ дал:
0
И еще: в задании было требование "умножить элемент....", т.е. я то понимаю, как модификацию исходного массива. Её эффективнее делать в цикле, чем указывать a:=f(a) - это с ленивыми вычислениями плохо сочетается.
Ответ дал:
0
По поводу тернарного оператора есть мнение, что это в любой момент может оказаться неработоспособым и лучше не привыкать
Ответ дал:
0
Надо будет на форуме поднять вопрос, будет ответ "официальный"
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад