Составьте программу нахождения суммы черных чисел элементов массива (количество черных элементов массива) ai mod 2=0
Пожалуйста, помогите, кто разбирается в информатике, я перерыл весь интернет
Ответы
Ответ:
var
a: array [1..N] of integer;
K: integer;
IsFound: boolean;
begin
for var i:=1 to N do
a[i] := Random(15);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(15);
IsFound := False;
for var i:=1 to N do
if a[i] = K then
begin
IsFound := True;
break
end;
if IsFound then
writeln('Элемент ',K,' найден')
else writeln('Элемент ',K,' не найден')
end.
Сортировка пузырьком
const N = 10;
var
a: array [1..N] of integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=n downto 2 do
for var j:=1 to i-1 do
if a[j+1]<a[j] then
Swap(a[j+1],a[j]);
writeln('После сортировки пузырьком: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
end.
Сортировка выбором
const N = 10;
var
a: array [1..N] of integer;
K: integer;
IsFound: boolean;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=1 to N-1 do
begin
var min := a[i];
var ind := i;
for var j:=i+1 to N do
if a[j]<min then
begin
min := a[j];
ind := j;
end;
a[ind] := a[i];
a[i] := min;
end;
writeln('После сортировки выбором: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
end.