var i,n:byte; k:integer; a:array [1..10] of integer; begin randomize; writeln('Исходный массив'); for i:=1 to 10 do begin a[i]:=random(21)-10; write(a[i],' '); end; writeln; write('Введите кол-во смещений: '); read(n); repeat k:=a[2]; for i:=2 to 9 do a[i]:=a[i+1]; a[10]:=k; n:=n-1; until n=0; writeln('Результат:'); for i:=1 to 10 do write(a[i],' '); writeln; end.
var i,n:byte;
k:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Введите кол-во смещений: ');
read(n);
repeat
k:=a[2];
for i:=2 to 9 do
a[i]:=a[i+1];
a[10]:=k;
n:=n-1;
until n=0;
writeln('Результат:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.
Обозначим через А простое высказывание «Людоед голоден», а через В «он давно не ел». Тогда логическая формула сложного высказывания имеет вид: А=В.
Таблица истинности операций импликации и эквивалентности.
А В А→В А=ВИ И И И
И Л Л Л
Л И И Л
Л Л И И
Вывод.
Порядок логических операций по убыванию старшинства следующий: отрицание, конъюнкция, дизъюнкция, импликация, эквивалентность.