<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Reverse.ToArray; b.Println
end.
<u>Пример</u>
n= 13
7 -43 4 21 -25 62 -33 72 88 -26 -38 42 -64
-64 42 -38 -26 88 72 -33 62 -25 21 4 -43 7
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования
1.Смотря для чего но я бы выбрал домашнюю
2.Можно скачать приложение например clean master или поискать на Ютубе
3. 1 Загружаем утилиту Media Creation Tool2. 2 Создаем установочный носитель 3. Выясняем раздел с Windows4.Выборочная установка 5.Радикальная чистая установка
uses crt;
var x, y:real;
begin
read(x);
if x<=-70 then
y:=x*x+50
else
if (-70<x) and (x<=0) then
y:= abs(x)
else
y:=3*(x*x+1);
writeln(y);
end.