Без массива:
Program n_1;
var a, b, i, n: integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n);
if n mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
С массивом:
Program n_1;
var a, b, i: integer; n: array [1..15] of integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n[i]);
if n[i] mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
Но честно, не вижу смысла использовать массив.
система управления базами данных
Систе́ма управле́ния ба́зами да́нных, сокр. СУБД (англ. Database Management System, сокр. DBMS) — совокупность программных и лингвистических средств общего или специального назначения, обеспечивающих управление созданием и использованием баз данных[1].
СУБД — комплекс программ, позволяющих создать базу данных (БД) и манипулировать данными (вставлять, обновлять, удалять и выбирать). Система обеспечивает безопасность, надёжность хранения и целостность данных, а также предоставляет средства для администрирования БД[2].
Сортировка методом пузырька заключается в том, что по массиву осуществляются множественные проходы. На каждом проходе очередной элемент сравнивается со следующим за ним. И если он больше (при сортировке по возрастанию), то элементы массива меняются местами.
Таким образом при первом проходе по массиву при сортировке по возрастанию последним в массиве оказывается самое большое значение. При следующем проходе на предпоследнем месте окажется максимальное из оставшихся чисел. Сравнивать последнее и предпоследнее числа нет смысла. Поэтому количество просматриваемых элементов массива на каждом проходе сокращается на 1. Количество проходов равно количеству элементов массива за вычетом единицы, т.к. происходит попарное сравнение.
var a:array [1..15] of integer;
i,k:integer;
BEGIN
k:=0;
writeln('Введите числа');
for i:=1 to 15 do begin
read(a[i]);
if (a[i] mod 2=0) then k:=k+1;
end;
if k<8 then
writeln('Нечетных чисел больше, чем четных.') else
writeln('Четных чисел больше, чем нечетных.');
end.