1)Вариант:
begin
var ar:=arrrandom(10, -5, 5);
//ar.Println;
end.
2)Вариант:
var
ar: array[1..10]of integer;
begin
for var i := 1 to 10 do ar[i] := random(-5, 5);
//for var i := 1 to 10 do write(ar[i],' ');
end.
Периметр вычисляется как а * б строны
В эксель
формула " =2*(A1+B1) "
Вводишь в ячеки А1 и B1 соответсвующие значения а в С1 вставляешь эту формулу: =2*(A1+B1) и все
Все сложна я тебе так скажу думай сам тут если додуматься не так сложна