Ребята, помогите пожалуйста написать программу в паскале. 10 класс
баллов дам не мало)
// 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
