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

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] gt; -10) and (a[i] lt; 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(Меняем 1-ые и заключительные три элемента местами);

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.