1 это предпоследние выкамвам
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
ПОздно наверно, но всё равно, ответ будет: ДА, там после всех преобразований остаётся одна дизъюнкция, и вот такое присутствует(не В v B) =1 (оно всегда истинно), а раз одно мтстинно значит и всё истинно. Таблица в приложении.
Может операционная система? Операционная система -это комплекс системных программ, обеспечивающих совместное функционирование всех устройств компьютера, и поддерживающий работу всех его программ