Дан массив целых чисел (n=10), заполненный случайными числами из промежутка [-40,30]. 1. удалить из него все элементы,

var a: array[1..10] of integer;

i, k, a1, a2, a3, b1, b2, b3: integer;

begin

writeln(\'Заполняем массив случайными числами\');

randomize;

for i := 1 to 10 do a[i]:=random(-40, 30);

writeln(\'Введите число k\');

readln(k);

writeln(\'Меняем массив по условию\');

for i := 1 to 10 do begin

if (a[i] > -10) and (a[i] < 10) then a[i] := 0 else

if a[i] mod 10 = a[i] div 10 then a[i] := 0 else

if (a[i] mod 10 = 1) or (a[i] div 10 = 1) then a[i] := a[i] + 100;

end;

writeln(\'Меняем первые и последние три элемента местами\');

a1 := a[1];

a2 := a[2];

a3 := a[3];

b1 := a[n-2];

b2 := a[n-1];

b3 := a[n];

a[1] := b1;

a[2] := b2;

a[3] := b3;

a[n-2] := b1;

a[n-1] := b2;

a[n] := b3;

end.