Ан массив целых чисел n=14 заполненный случайным образом числами из промежутка [-15 30] 1) удалить последний четный элемент 2) поменять местами первую и вторую его половины.

Задание выполнено на ЯПВУ Паскаль. Ключевые моменты описаны в виде комментариев, отделенных от основного кода символами "//".

const

n=14;

var

m:array[1 ... n] of integer; //объявление массива

i, z, o:integer; //объявление необходимых переменных

begin

randomize; //запуск генератора случайных чисел

for i:=1 to n do / /цикл-счетчик для заполнения массива

begin

m[i]:=random (45) - 15; //элементу массива задается случайное значение

write (m[i],' ');

end;

writeln;

i:=n+1;

repeat//цикл поиска четного значения, и запись его номера

i:=i-1;

if m[i] mod 2 = 0 then z:=i;

until m[i] mod 2 = 0;

if z
for i:=1 to z div 2 do / /цикл-счетчик замены половин массива

begin

o:=m[i];

m[i]:=m[z+1-i];

m[z+1-i]:=o;

end;

for i:=1 to z do write (m[i],' '); //вывод результата на экран

end.