Создать два одномерных массива, состоящих из целых чисел. Элементы массива вводятся с клавиатуры. В первом массиве найти номер первого нечетного элемента массива. Во втором массиве найти первый четный элемент массива. Решить на Pascal ABC (При решении задач обязательно использовать одномерные массивы и процедуры или функции работы с одномерными массивами.)

Uses

CRT;

Var

i, n:integer;

imax:integer;

a:array[1 ... 100] of integer;

begin

repeat

write ('Введите ', i+1,' число: ');

readln (n);

until n in [1 ... 100];

randomize;

imax:=1;

for i:=1 to n do

begin

a[i]:=random (10) - 3;

write (a[i]:3);

if a[i]>a[imax] then

imax:=i

else

if a[i]=a[imax] then

imax:=i;

end;

writeln;

writeln ('количество четных чисел = ', a)

end.

Второй вариант

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

i, k: integer;

begin

for i : = 1 to 100 do

begin

write (i, ') ');

readln (a[i]);

end;

writeln ('Ввести четное);

for i : = 1 to 99 do

if i mod 2 = 0 then

begin

k : = a[i];

a[i] : = a[i + 1];

a[i + 1] : = k;

end;

for i : = 1 to 100 do

writeln (i, ') ', a[i]);

end.