Дан одномерный массив т, созданный генератором случайных чисел из диапазона -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.