program fantscrin;
const n = 20;
var a: array [1..n] of integer;
i,max,k:integer;
Begin
for i:=1 to n do
a[i]:= random(21)-10;
for i:=1 to n do
write(a[i], ' ');
max:=a[1];
k:=1;
writeln('');
for i:=2 to n do
if (a[i]> max) then
begin
max:=a[i];
k:=i;
end;
i:=a[1];
a[1]:=a[k];
a[k]:=i;
for i:=1 to n do
write(a[i], ' ');
End.
Ответ:
-23
Объяснение:
1. Вычитаем 1: 11101001-1 = 11101000
2. Инвертируем разряды: 00010111
3. Переводим в десятичную систему: 10111(2) = 16+4+2+1 = 23
N=2i из этого следует что i = 32
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(10,-50,50).Println.Sum.Println;
end.
<u>Пример</u>
31 19 1 -45 -14 -32 8 -46 46 -18
-50
Конъюнкция - это сложное логическое выражение, которое считается истинным в том и только том случае, когда оба простых выражения являются истинными, во всех остальных случаях данное сложеное выражение ложно.
Обозначение: F = A & BДизъюнкция - это сложное логическое выражение, которое истинно, если хотя бы одно из простых логических выражений истинно и ложно тогда и только тогда, когда оба простых логических выраженныя ложны.
Обозначение: F = A + B.
Инверсия - это сложное логическое выражение, если исходное логическое выражение истинно, то результат отрицания будет ложным, и наоборот, если исходное логическое выражение ложно, то результат отрицания будет истинным. Другими простыми слова, данная операция означает, что к исходному логическому выражению добавляется частица НЕ или слова НЕВЕРНО, ЧТО.
Импликация - это сложное логическое выражение, которое истинно во всех случаях, кроме как из истины следует ложь. Тоесть данная логическая операция связывает два простых логических выражения, из которых первое является условием (А), а второе (В) является следствием.
Эквивалентность - это сложное логическое выражение, которое является истинным тогда и только тогда, когда оба простых логических выражения имеют одинаковую истинность..