(AvB)&B
A B AvB (AvB)&B
1. 1. 1. 1
0.0. 0. 0
1. 0. 1. 0
0. 1. 1. 1
2. Найти сумму чисел массива в переменной Sum, а потом:<span> </span>
<span>Writeln('Сумма элементов массива чётное число = ', not odd(Sum));</span>
1.
<span>var</span> m<span>:</span><span>array</span><span>[</span><span>1</span>..<span>100</span><span>]</span><span>of</span><span>integer</span>;
i<span>,</span>a<span>,</span>n<span>:</span><span>integer</span>;
<span>begin</span><span>write</span><span>(</span><span>'Введите размерность массива: '</span><span>)</span>;<span>readln</span><span>(</span>n<span>)</span>;
<span>write</span><span>(</span><span>'Введите число А: '</span><span>)</span>;<span>readln</span><span>(</span>a<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите массив: '</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> N <span>do</span><span>readln</span><span>(</span>m<span>[</span>i<span>]</span><span>)</span>;
<span>writeln</span><span>(</span><span>'Массив: '</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> N <span>do</span>
M<span>[</span>i<span>]</span><span>:=</span>m<span>[</span>i<span>]</span><span>-</span>a;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> N <span>do</span><span>write</span><span>(</span>M<span>[</span>i<span>]</span><span>,</span><span>' '</span><span>)</span>;
<span>end</span>.
0011 - 3
0100 - 4
34 - 00110100
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
{
cin>>x;в средине цикла считываем х
if(x==15) count++;проверяем на равенство с 15, если равно прибавляем к count один
}
cout<<count; виводим результа