Дан одномерный массив т, созданный генератором случайных чисел из диапазона -80 до 79, размерности 10
1)написать программу, которая находит пятый эл-т по счету четный эл-т и возводит его в квадрат
2)написать программу, которая наибольший эл-т уменьшает на 100 и меняет его с последним эл-м
!

===== PascalABC.NET =====

1)

begin

 var a := ArrRandom(10, -80, 79);

 a.Println;

 var (j, k) := (-1, 0);

 for var i := 0 to a.High do

   if a[i].IsEven then

   begin

     k += 1;

     if k = 5 then

     begin

       j := i;

       break

     end  

   end;

 if j = -1 then

   Println('Нет достаточного числа четных элементов')

 else

 begin

   a[j] := Sqr(a[j]);

   a.Println

 end

end.

2)

begin

 var a := ArrRandom(10, -80, 79);

 a.Println;

 var imax := a.IndexMax;

 a[imax] -= 100;

 Swap(a[imax], a[a.High]);

 a.Println

end.