//Код Pascal
const
N = 7;
var
Mass: array[1..N] of integer;
i, k: integer;
Begin
WriteLn('Введите для продолжения:');
WriteLn('1 - Автоматическая генерация массива');
WriteLn('2 - Ручной ввод');
ReadLn(k);
if (k = 1) then
Begin
Write('Исходный массив:');
For i:= 1 to N do
Begin
Mass[i] := random(2*N) - N;
Write(' ', Mass[i]);
End;
End
else
For i:= 1 to N do
Read(Mass[i]);
WriteLn();
WriteLn('Введите номер элемента');
ReadLn(k);
if ((k < 1) or (k > N)) then
WriteLn('Ошибка, в массиве нет элемента с таким номером.')
else
Begin
Write(k, '-ый элемент - ');
if (Mass[i] mod 2 = 0) then
Write('чётный')
else
Write('нечётный');
End;
End.