Прокладка кабелей, установка оборудования
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.
Ответ:
Объяснение:
f∧(x∧y)≡¬¬x∧¬x∨¬y∨x
Перепишем в более привычные обозначения
f*(xy) ≡ ¬(¬x) ¬x + ¬y + x
fxy ≡ 0 + ¬y + x
fxy ≡ x + ¬y
(¬(fxy) * ¬(x + ¬y) + (fxy * (x + ¬y))
(¬(fxy) * (¬x * y)) + (fxxy + fxy¬y))
¬(fxy)¬xy) + (fxy + 0)
¬xy(¬f + ¬x + ¬y) + fxy
¬f¬xy + ¬x¬xy +¬xy¬y + fxy
¬f¬xy + ¬xy + 0 + fxy
¬f¬xy + ¬xy + fxy
¬xy(¬f +1) + fxy
¬xy + fxy
y(¬x + fx)
y(¬x + f)
¬xy + fy
Или, в исходной записи
¬x∧y∨f∧y
Const
n = 12;
Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(31)-20;
Write(' ',A[i])
End;
WriteLn;
Write('Номера отрицательных элементов:');
For i:= 1 to N do
if A[i] < 0 then Write(' ',i)
End.